Задача 5. Урок 9.

Задача 5. Урок 9.

Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число A находится между числами B и C» -- выведите "да", если истинно и "нет" если ложно.

var
  a, b, c: integer; // для целых чисел
  b1, b2: boolean; // для хранения результатов проверок

begin
  writeln('Vvedite chislo a: '); // вводим число "a"
  read(a);

  writeln('Vvedite chislo b: '); // вводим число "b"
  read(b);

  writeln('Vvedite chislo c: '); // вводим число "c"
  read(c);

  b1 := (a > b) and (a < c); // ситуация, когда b < a < c
  b2 := (a > c) and (a < c); // ситуация, когда c < a < b

  writeln('Chislo A nahoditsya mezhdy chislami A i C - ', b1 or b2);
  {выводим результат}

  readln();
  readln();
end.

Консоль:

Vvedite chislo a:
30
Vvedite chislo b:
27
Vvedite chislo c:
145
Chislo A nahoditsya mezhdy chislami A i C - TRUE