Функция, преобразующая цифру к ее словесному наименованию на Pascal
Функция, преобразующая цифру к ее словесному наименованию.
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(DigitName(3));
writeln(DigitName(5));
writeln(DigitName(7));
end.
10.02.2015, 10:27 -
Категория: Статьи » Программирование » Pascal