1) вывести квадраты чисел от 1 до 10 в столбик2) Ввести на экран 5 раз свое имя(Иван)
1) вывести квадраты чисел от 1 до 10 в столбик
2) Ввести на экран 5 раз свое имя(Иван)
Гость
Ответ(ы) на вопрос:
Гость1) var i,kv:integer;
begin
for i:=1 to 10 do begin
kv:=i*i; writeln(kv); end;
readln;
end.
Не нашли ответ?
Похожие вопросы