Написать программу, которая находит сумму кубов всех целых чисел от А до 60. Значение А вводится с клавиатуры, 0<=A<=60 Решать через цикл с постусловием (repeat ... until)

Question

Марьяныч

24 сентября, 12:47

+4

Ответы (1)

Знаете ответ на вопрос?

Элла · Answer 1

Program n1;

var a, sum, i: longint;

begin

readln (a) ;

sum:=0;

repeat

sum:=sum+a*a*a;

a:=a+1;

until (a>60) ;

writeln (sum) ;

end.