Задание:
Число вводится с клавиатуры. Написать программу получения суммы возведенных в куб чисел от 15 доx
Решение:
var i,x,s: integer; beginreadln (x); for i: =15 to x dos: =s+i*i*i; writeln (s); end.
Знаете другой ответ?
Число вводится с клавиатуры. Написать программу получения суммы возведенных в куб чисел от 15 доx
var i,x,s: integer; beginreadln (x); for i: =15 to x dos: =s+i*i*i; writeln (s); end.
Знаете другой ответ?