Pascal abc. виконати побудову програми: даны действительные числа a, b, c. проверить выполняется ли неравенство a b c.

Question

Информатика: Pascal abc. виконати побудову програми: даны действительные числа a, b, c. проверить выполняется ли неравенство a b c.

huh106 · Answer

Var a,b,c:real;begin;readln(a);readln(b);readln(c);if (a b) and (b c) then writeln( Yes ) else writeln( No );end....

Pascal abc. виконати побудову програми: даны действительные числа a, b, c. проверить выполняется ли неравенство a < b < c.