Дано целое число в диапазоне 0 – 9. Вывести строку — название соответствующей цифры на русском языке (0 — «ноль», 1 — «один», 2 — «два», …).
Program bedin65;
Uses Crt;
Var number:Integer;
Begin ClrScr;
WriteLn (‘Введите число от 0 до 9’);
ReadLn (number);
if (number>0) and (number<9) then
case number of
1: WriteLn ('Адын');
2: WriteLn ('Два');
3: WriteLn ('Три');
4: WriteLn ('Четыре');
5: WriteLn ('Пять');
6: WriteLn ('Шесть');
7: WriteLn ('Семь');
8: WriteLn ('Восемь');
9: WriteLn ('Девять');
end;
WriteLn;
ReadLn;
end.
Добавить комментарий