Составить программу имитирующюю работу автомата чай кофе чай 10 рублей, кофе 30 рублей
Answers & Comments
Victor1998
Program avtomat; uses crt; var x: string; begin clrscr; readln(x); if x = 'Чай' then writeln ('С вас 10 рублей'); if x = 'Кофе' then writeln ('С вас 30 рублей'); writeln('Спасибо!'); readkey; end.
Answers & Comments
uses crt;
var x: string;
begin
clrscr;
readln(x);
if x = 'Чай' then writeln ('С вас 10 рублей');
if x = 'Кофе' then writeln ('С вас 30 рублей');
writeln('Спасибо!');
readkey;
end.