Составить таблицу квадратов на языке Паскаль:
1=1
2=4
3=9
...
100=10000
Var
i:Integer;
Begin
for i:=1 to 100 do
Writeln(sqr(i));
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
