Проверка, выполняются ли неравенства a < b < c - Free Pascal
Формулировка задачи:
жду топоров, что не так? надо проверить выполняются ли неравенства a<b<c
Program Zadacha 36 var a:real; b:real; c:real; begin readln (a,b,c); if a<b then begin if b<c then writeln (Равенство верно); else writeln (Равенство неверно); end; else writeln (Равенство неверно); end.
Решение задачи: «Проверка, выполняются ли неравенства a < b < c»
textual
Листинг программы
if (a < b ) AND (b < c) then writeln('верно') else writeln('неверно');
Объяснение кода листинга программы
- Проверяется, выполняется ли неравенство
a < b
. - Проверяется, выполняется ли неравенство
b < c
. - Если оба неравенства выполняются, выводится сообщение
верно
. - Если хотя бы одно из неравенств не выполняется, выводится сообщение
неверно
.