число вводится с клавиатуры. Написать программу получения суммы возведенных в куб чисел от 15 до x

1

Ответы и объяснения

  • Kitsu
  • почетный грамотей
2012-12-07T11:48:59+00:00

var i,x,s:integer;

begin

readln(x);

for i:=15 to x do

s:=s+i*i*i;

writeln(s);

end.