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

Question

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

Answer 1

//Pascal ABC.NET 3.1 сборка 1219

Var
 x,y,r:real;
 k,i,xi,yi:integer;
begin
readln(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.1
2.1
Пример вывода:
Count=4
Sum=6

Comments

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

---

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