Урок 9 Задача 5
Primary tabs
Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число A находится между числами B и C» -- выведите "да", если истинно и "нет" если ложно.
var a, b, c, x : integer;
var a, b, c, x : integer; begin writeln('Введите три целых числа:'); readln(a, b, c); if (b > c) then begin x := b; b := c; c := x; end; if (a > b) and (a < c) then writeln('да') else writeln('нет'); readln(); end.
- Log in to post comments
- 405 reads