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

Question

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

Answer 1

// 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 целых чисел.

Answer 2

PascalABC.NET 3.4

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