Question

ПОМОГИТЕ ПОЖАЛУЙСТА!

нужно сдать до завтра


Составить программу для вычисления выражения 1 в квадрате + 2 в квадрате + 3 в квадрате +... + 10 в квадрате

Answer 1

pascal

var a,s, i: integer;

begin

 s := 0;

 a := 1;

 for i:=1 to 10 do begin

   s:=s+a*a; a:=a+1;

 end;

 writeln(s)

end.