Ввести с клавиатуры три числа a,b,c. проверить,являются ли ,то есть a<b<c не шарю
201
359
Ответы на вопрос:
Pascal program system var a, b, c : real; begin readln(a, b, c); if (a < b) and (b < c) then writeln( ‘yes’ ) else writeln( ‘no’ ); end.
*могу писать с ошибками, давно паскаль изучал, но суть верна begin var a,b,c: integer; read(a); read(b); read(c); if ((a< b) and (b< c)) then writeln("введено верно! "); else writeln("введено неверно! "); end.
Популярно: Информатика
-
Котик13245730.10.2021 15:21
-
imailh2828211.11.2022 07:12
-
baby13419.06.2022 05:41
-
lida10516.04.2022 07:53
-
poster131220.10.2020 15:44
-
torin3919391930.09.2021 01:30
-
TanyaCat22528.06.2020 20:43
-
badmaks0015.11.2022 20:19
-
Tina1997717.09.2020 02:42
-
Bronin200208.07.2021 01:04