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