Урок 9 Задача 3
Primary tabs
Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число A находится между числами B и C» -- выведите "да", если истинно и "нет" если ложно.
var A, B, C : integer; bool: boolean; begin writeln ('enter the first number'); readln(A); writeln ('enter the second number'); readln(B); writeln ('enter the third number'); readln(C); if ((A>B) and (A<C)) or ((A<B) and (A>C)) then bool := True; writeln (bool); readln(); end.
- Log in to post comments
- 414 reads