Pascal abc. виконати побудову програми: даны действительные числа a, b, c. проверить выполняется ли неравенство a < b < c.
219
479
Ответы на вопрос:
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.
Популярно: Информатика
-
dashok27030731.05.2022 15:29
-
stf7414910.01.2022 19:56
-
alenamalaya2030.01.2022 10:15
-
лана27823.04.2023 14:25
-
ardolg25.11.2020 10:34
-
supercrud12.11.2022 00:19
-
denis112023.03.2022 02:37
-
yvtcrvt03.11.2020 04:35
-
CorrupteD18.01.2021 23:48
-
ARMY13061330.08.2021 20:26