profile
Опубликовано 6 лет назад по предмету Информатика от HeIpme

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

  1. Ответ
    Ответ дан 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.
Самые новые вопросы