Урок 6 задача 12
Primary tabs
Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число A находится между числами B и C».
program D3; var a, b, c: integer; e1, e2: boolean; begin write('Введите число A, B, C: '); readln(a, b, c); e1 := (a > b) and (a < c); e2 := (a > c) and (a < b); writeln('Число A находится между числами B и C - ', e1 or e2); readln(); end.
Консоль:
Введите число A, B, C: 2 1 3 Число A находится между числами B и C - TRUE
- Log in to post comments
- 688 reads