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

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

Question

Гораций

6 апреля, 09:04

+3

Ответы (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