Составить программу имитирующюю работу автомата чай кофе чай 10 рублей, кофе 30 рублей

13nastuxxa 13nastuxxa    1   04.06.2019 14:10    2

Ответы
LeНин LeНин  05.07.2020 13:51
Program avtomat;
uses crt;
var x: string;
begin
clrscr;
readln(x);
if x = 'Чай' then writeln ('С вас 10 рублей');
if x = 'Кофе' then writeln ('С вас 30 рублей');

readkey;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика