Ответы на вопрос:
Program avtomat; uses crt; var x: string; begin clrscr; readln(x); if x = 'чай' then writeln ('с вас 10 рублей'); if x = 'кофе' then writeln ('с вас 30 рублей'); writeln('! '); readkey; end.
Популярно: Информатика
-
Sokol12341234341216.09.2021 14:52
-
dratyti2004160505.08.2020 00:32
-
2vovanavi23.05.2023 17:43
-
AkaNika09.02.2023 12:35
-
steamoff14.04.2022 17:27
-
ershvik78119.07.2021 14:35
-
яна176826.02.2023 23:30
-
beresnevarseny27.04.2021 23:10
-
Betmen2323.01.2020 15:17
-
Stikki17.08.2022 05:54