Question

Найти сумму квадратов первых 10 чисел. К данной задаче написать циклический алгоритм «пока» Срочно ПОМОГИТЕ Заранее спасибо

Answer 1

program summakv;

var
n, i: integer;

begin
n := 0;
while i < 11 do
begin
n := n + sqr(i);
i := i + 1;
end;
writeln('Сумма квадратов первых десяти чисел = ', n);
end.

Ответ: 385