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

Для чисел -1.8 и 2.8 результат будет неверный.

Без музыки плохо пишется, хех. Всё поправил.

//Pascal ABC.NET 3.1 сборка 1219Var x,y,r:real; k,i,xi,yi:integer;beginreadln(x,y);xi:=round(x-frac(x));yi:=round(y-frac(y));for i:=xi to yi do begin  inc(k);  r:=r+sqr(i); end;writeln('Count=',k);writeln('Sum=',r);end.Пример ввода:-1.12.1Пример вывода:Count=4Sum=6