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