Question

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

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.