Question

НАЙТИ СУММУ1² + 2² + 3² ...+10². Операцию возведения в степень не использовать.Паскаль

Answer 1

var
  a, b: integer;  

begin
  for a := 1 to 10 do
    b += a * a;
  writeln(b);
end.

Answer 2

Var  x,s: integer;  
begin
  for x := 1 to 10 do
    s:= s+x*x;
writeln('Сумма равна ',s);
end.