Много баллов даю....Составьте программу нахождения квадратов чисел от 1 до 20

0 голосов
35 просмотров

Много баллов даю....Составьте программу нахождения квадратов чисел от 1 до 20


Информатика (254 баллов) | 35 просмотров
0

язык?

Дан 1 ответ
0 голосов

Var k:integer;
begin
for k:=1 to 20 do
writeln(k*k);
end.

(280 баллов)