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

Question

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

Comments

помогите пожалуйста, кому не сложно?

---

Минут через 20 сделаю, ты не спешишь?

---

нет, спасибки большое

---

буду ждать

Answer 1

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.