Question

Тема "Оператор цикла с параметром"
Pascal ABC
Составьте программу, которая находит сумму квадратов чисел от 1 до 10.

Answer 1

Готово..........................

9421e84d129478c27f04c71535a997a8.pas

Answer 2

var i,c,s:integer;
begin
  s:=0; 
 for i:=1 to 10 do
    begin
       c:=sqr(i);
       s:=s+c;
     end;
 write(s);
end.

9421e84d129478c27f04c71535a997a8.pas