Составить программу ** языке паскаль для преобразования цифр в слова.

Question

Составить программу на языке паскаль для преобразования цифр в слова.

Answer 1

var

  c:integer;

begin

  write('Введите цифру '); readln(c);

  case c of

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

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

    2: writeln('Два');

    3: writeln('Три');

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

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

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

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

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

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

  end;

end.

 

Так что ли?