Дано целое число. Вывести строку — название соответствующей цифры

@Дэрианна · Регистрация: 04.10.2009

Студворк — интернет-сервис помощи студентам

Плииииииииииз спасите мою шкуру.........
Вариант 15.
3. Дано целое число в диапазоне 0 – 9. Вывести строку — название соответствующей цифры на русском языке (0 — "ноль", 1 — "один", 2 — "два", ...).

@Snoopy · 15.11.2009, 21:05

3

Pascal

uses crt;
 var x:integer;
 begin
  ClrScr;
   case x of 
    0:write('ноль');
    1:write('один');
    2:write('два');
    3:write('три');
    4:write('четыре');
    5:write('пять');
    6:write('шесть');
    7:write('семь');
    8:write('восемь');
    9:write('девять');
   Readln;
  end.

Опции темы

Дано целое число. Вывести строку — название соответствующей цифры

Решение