Встреча друзей задача 6 класс - Pascal ABC

Формулировка задачи:

Два бизнесмена, бывшие в школьные годы друзьями, давно не общались и решили встретиться в кафе нового бизнес-центра. Первый указал, что может быть с l1 минуты включительно до r1 минуты включительно. А второй указал, что может быть с l2 минуты включительно до r2 минуты включительно и будет занят телефонным разговором на k-й минуте. Определите в течении какого времени друзья смогут пообщаться. Входные данные В единственной строке входного файла INPUT.TXT записаны пять натуральных чисел l1, r1, l2, r2, k (1 ≤ l1, r1, l2, r2, k ≤ 32767, l1 ≤ r1, l2 ≤ r2). Выходные данные В единственную строку выходного файла OUTPUT.TXT нужно вывести одно натуральное число – время общения друзей в минутах. Если друзья не смогут пообщаться, то нужно вывести 0.

Решение задачи: «Встреча друзей задача 6 класс»

Листинг программы

если l2>r1 или r2<l1 то  vr=0//не пересекаются
иначе
 //если простой АВС, написать функции min(a,b), max(a,b), в АВС.net эти функции уже есть
  r:=min(r1,r2);//правая граница пересечения диапазонов
  l:=max(l1,l2);//левая граница пересечения диапазонов
  vr:=r-l+1;
  if (k>=l)and(k<=r) then dec(vr);

Объяснение кода листинга программы

Сравниваются левая и правая границы второго диапазона с левой и правой границами первого диапазона.
Если левая граница второго диапазона больше правой границы первого диапазона или правая граница второго диапазона меньше левой границы первого диапазона, то vr=0, то есть диапазоны не пересекаются.
Если условие из второго пункта не выполняется, то: 3.1. Находится правая граница пересечения диапазонов (наименьшее значение из r1 и r2). 3.2. Находится левая граница пересечения диапазонов (наибольшее значение из l1 и l2). 3.3. vr=r-l+1, то есть находим длину пересечения диапазонов. 3.4. Если k находится в пределах от l до r (включительно), то vr уменьшается на единицу (то есть пересечение диапазонов уменьшается на один элемент).