С циклом пока составить программу вычисляющую сумму квадратов всех чисел от 1 до N
Срочно!!!
Luvenat:
От одного до N- кол-во проходов в цикле?
Ответы
Ответ дал:
0
На Pascal:
Var W, i, N, B:integer;
Begin
Writeln(‘введите кол-во нужных чисел’);
Read(N);
W:=0;
For i to N do
Begin
Writeln(‘введите число’);
Read(B);
W:=W+(B*B);
end;
Writeln(‘Сумма квадратов=’, W);
end.
Var W, i, N, B:integer;
Begin
Writeln(‘введите кол-во нужных чисел’);
Read(N);
W:=0;
For i to N do
Begin
Writeln(‘введите число’);
Read(B);
W:=W+(B*B);
end;
Writeln(‘Сумма квадратов=’, W);
end.
Вас заинтересует
3 месяца назад
3 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
7 лет назад