Ответы на вопрос:
Pascalabc.net 3.3.5, сборка 1669 от 21.05.2018 внимание! если программа не работает, обновите версию! begin if readlnstring('пароль? ')='1836547290' then writeln('распахнуть ворота! ',newline,'оркестр, музыку! ', newline,'проходите! ') else writeln('тревога! ',newline,'задержать его! ') end.
Популярно: Информатика
-
наталинка197507.07.2021 13:12
-
Natalym200105.01.2022 04:17
-
Сашулябрейк01.07.2021 22:38
-
Degradant8104.01.2021 03:17
-
sashamakarova3023.11.2020 05:20
-
alisgrhf21.05.2021 12:20
-
windi3724.01.2022 12:29
-
danilejik03.06.2022 04:47
-
DVSHV08.01.2020 22:48
-
луч1628.01.2021 01:11