Составить программу для вычисления суммы квадратов чисел от 1 до 15. Функция возведения в...

Question

Составить программу для вычисления суммы квадратов чисел от 1 до 15. Функция возведения в квадрат sqr();
Var , , : ;
Begin
:=0;
For := to do
Begin
;
;
End;
Writeln(' =', );
End.
Там, где пробелы, вставить что нужно

Answer 1

Var i,s,x:integer;;
Begin
s:=0;
For i:=1 to 15 do
Begin
x:=sqr(i);
s:=s+x;
End;
Writeln('suma =',s );
End.

2) второе решение 
Var i,s,x:integer;;
Begin
s:=0;
For i:=1 to 15 do s:=s+sqr(i);
Writeln('suma =',s );
End.

Comments

спасибо)