даны 2 вещественных числа. сколько на отрезке между ними целых чисел. срочно решить в паскале.

// PascalABC.NET

// Версия 3.3.5 сборка 1662 (29.04.2018)

begin

Println(Range(ReadReal('1->').Trunc + 1, ReadReal('2->').Trunc).Count,'целых чисел.');

end.

Пример:

1-> 1.142

2-> 10.7854

9 целых чисел.

PascalABC.NET 3.4begin  // Если a и b целые, они также включаются в подсчет  var (a,b):=ReadReal2('Введите через пробел два числа:');  if a>b then Swap(a,b); // а - левая границв  Writeln('Целых чисел в интервале: ',Trunc(b)-Trunc(a)+1);end.