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