Составить программу для вычисления суммы кубов чисел от 25 до 125
Составить программу для вычисления суммы кубов чисел от 25 до 125
Гость
Ответ(ы) на вопрос:
Гостьvar
i: integer;ans: real; begin
ans := 0;
for i := 25 to 125 do ans := ans + i * i * i;
writeln(ans);
end.
Не нашли ответ?
Похожие вопросы