Задача 3 Урок 9
Primary tabs
Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число A находится между числами B и C» -- выведите "да", если истинно и "нет" если ложно.
var A,B,C: integer; d1,d2,d3: boolean; begin writeln('vvedite A,B,C'); readln(A,B,C); d1:=(A>B)and(A<C); d2:=(A>C)and(A<B); writeln (d1 or d2); begin if (d1 or d2) then writeln('Da') else writeln('net') end; readln(); end.
Вывод консоли:
vvedite A,B,C 2 1 1 FALSE net
- Log in to post comments
- 406 reads