Question

Составьте программу для подсчёта суммы квадратов чисел от 5 до 10
НА ПАСКАЛЕ!

Answer 1

Var i,sum: integer;
begin
sum:=0;
for i:=5 to 10 do
begin
sum:=(i*i)+sum;
end;
writeln('Сумма: ',sum);
End.