1) вывести квадраты чисел от 1 до 10 в столбик

2) Ввести на экран 5 раз свое имя (Иван)

Question

Всеволодыч

15 апреля, 02:43

+2

Ответы (1)

Знаете ответ?

Панюха · Answer 1

1) var i, kv:integer;

begin

for i:=1 to 10 do begin

kv:=i*i; writeln (kv) ; end;

readln;

end.

1) вывести квадраты чисел от 1 до 10 в столбик2) Ввести на экран 5 раз свое имя (Иван)