Проверка, выполняются ли неравенства 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('неверно');

Объяснение кода листинга программы

  1. Проверяется, выполняется ли неравенство a < b.
  2. Проверяется, выполняется ли неравенство b < c.
  3. Если оба неравенства выполняются, выводится сообщение верно.
  4. Если хотя бы одно из неравенств не выполняется, выводится сообщение неверно.

Оцени полезность:

8   голосов , оценка 3.875 из 5
Похожие ответы