Исходник программы для Паскаль, содержащей функцию преобразования цифры к её словесному наименованию (например: 1 - один, 2 - два). Пояснительных комментариев нет, но они особо не нужны. Скачать исходник или просмотреть исходный код программы, Вы можете ниже.
Исходный код программы:
Var x: integer;
function DigitName(n: integer): string;
begin
case n of
0: Result := 'Ноль';
1: Result := 'Один';
2: Result := 'Два';
3: Result := 'Три';
4: Result := 'Четыре';
5: Result := 'Пять';
6: Result := 'Шесть';
7: Result := 'Семь';
8: Result := 'Восемь';
9: Result := 'Девять';
end;
end;
begin
writeln ('Введите число');
Readln (x);
writeln(DigitName(x));
end.Скачать исходник:chisla.pas