** целочисленной прямой произвольно заданы четыре точки A, B, C, D. Определите, сколько...

Question

На целочисленной прямой произвольно заданы четыре точки A, B, C, D. Определите, сколько целых чисел принадлежат одновременно отрезку AB и отрезку CD. Написать программу в паскале

Answer 1

// PascalABC.NET 3.2, сборка 1485 от 15.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a,b,c,d:integer;
  Write('Введите через пробел значения a,b,c,d: ');
  Read(a,b,c,d);
  if a>b then Swap(a,b); if c>d then Swap(c,d);
  var ab:=Range(a,b); var cd:=Range(c,d);
  var n:=ab.Intersect(cd).Count;
  Write('Количество целых чисел равно ',n)
end.

Пример
Введите через пробел значения a,b,c,d: 3 10 12 5
Количество целых чисел равно 6