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