Помогите составить программу

Вычислить сумму квадратов натуральных чисел на отрезке от 5 до 10

Question

Ирена

7 апреля, 08:08

+5

Ответы (1)

Знаешь ответ?

Ванюта · Answer 1

Var

i, sum: integer;

begin

sum : = 0;

i : = 5;

repeat

sum : = sum + i * i;

i : = i + 1;

until (i > 10);

write (sum);

end.

Помогите составить программуВычислить сумму квадратов натуральных чисел на отрезке от 5 до 10