Напишите программу в PASCAL, используя while do

Question

TheDaveSnork Знаток (332), на голосовании 2 года назад

Даны действительные числа x, y. Найти сумму кубов всех целых чисел, расположенных между х и у, а также количество этих чисел.

Answer 1

Jurijus Zaksas Искусственный Интеллект (473884) 2 года назад

n = x-y+1;
s:=0;
while x<=y do
begin
s:=s+x*x*x;
inc(x);
end;

а что делать если жалуется на n?