Question

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

Answer 1

Vаr

b,i:integer;

begin

Reаdln(b);

for i:=5 to b do

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

еnd