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

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

Question

Генюля

16 декабря, 08:59

+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 раз свое имя (Иван)