Найти сумму квадратов первых 10 чисел. К данной задаче написать циклический алгоритм...

0 голосов
85 просмотров

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


Информатика (14 баллов) | 85 просмотров
0

Язык?

Дан 1 ответ
0 голосов

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

(2.3k баллов)