Question

С циклом пока составить программу вычисляющую сумму квадратов всех чисел от 1 до N
Срочно!!!

Answer 1

На 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.