Question

Написать программу, которая довщоляе по введенной цифру от 0-9 вивестий ее словесный аналог
пжпжпжаж

Answer 1

program test;

var a:byte;

begin

readln(a);

case a  of

0: writeln ('ноль');

1: writeln ('один');

2: writeln ('два');

3: writeln ('три');

4: writeln ('четыре');

5: writeln ('пять');

6: writeln ('шесть');

7: writeln ('семь');

8: writeln ('восемь');

9: writeln ('девять');

else writeln ('Неверно введено число');

end;

end.