Ответы на вопрос:
Var a: integer; begin readln(a); foreach c: char in a.tostring() do case c of '1': write('один '); '2': write('два '); '3': write('три '); '4': write('четыре '); '5': write('пять '); '6': write('шесть '); '7': write('семь '); '8': write('восемь '); '9': write('девять '); '0': write('ноль '); end; end.
Популярно: Информатика
-
DogyStyleee15.02.2021 20:21
-
lizokf813.06.2022 23:57
-
polinkamalinka2818.04.2022 10:23
-
PoLiNa2006140423.06.2021 09:38
-
Polinakovalevallll03.05.2020 00:08
-
Arinka2605200509.03.2023 11:04
-
FireLily13.01.2023 18:42
-
amina32224.02.2022 22:08
-
oksanasmolko2024.04.2023 02:06
-
mrden333326.10.2021 00:08