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



В тексте заменить
цифры на их словесные названия (использовать Case).



  1. Ответ
    Ответ дан Programust
    var b:integer;
    begin
    readln(b);
    case b of
    0: writeln('Нуль');
    1: writeln('Один');
    2: writeln('Два');
    3: writeln('Три');
    4: writeln('Четыре');
    5: writeln('Пять');
    6: writeln('Шесть');
    7: writeln('Семь');
    8: writeln('Восемь');
    9: writeln('Девять');
    end;
    end.