Pascal abc. виконати побудову програми: даны действительные - вопрос №4716560 от Маrprokap 23.12.2021 19:32

Question

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

Маrprokap · 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.