Информатика, вопрос задал Наню , 1 год назад

Напишите код программы: Найти сумму кубов всех целых чисел от 5 до 15

Ответы на вопрос

Ответил yarikVodila12986
1

Vаr

b,i:integer;

begin

Reаdln(b);

for i:=5 to b do

writeln('Куб числа ',i,' = ',powеr(i,3));

еnd

Новые вопросы