Найти сумму кубов всех целых чисел от 5 до b
Найти сумму кубов всех целых чисел от 5 до b
Гость
Ответ(ы) на вопрос:
ГостьVar
b,i:integer;
begin
Readln(b);
for i:=5 to b do
writeln('Куб числа ',i,' = ',power(i,3));
end.
Не нашли ответ?
Похожие вопросы