составить программу для вычисления суммы квадратов чисел от 1 до 15. Функция возведения в квадрат sqr();
Var , , : ;
Begin
:=0;
For := to do
Begin
;
;
End;
Writeln(' =', );
End.
Там, где пробелы, вставить что нужно
Ответ
Автор - Ігор2911
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.