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