PASCAL ABC.
Виконати побудову програми:
Даны действительные числа a, b, c. Проверить выполняется ли неравенство a < b < c.
Виконати побудову програми:
Даны действительные числа a, b, c. Проверить выполняется ли неравенство a < b < c.
More Questions From This User See All
Answers & Comments
Verified 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.