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

Предыдущий
вопрос Следующий
вопрос

Пример программы на языке Паскаль:

program ConvertDigitsToWords;
var
number, remainder, quotient: integer;
word: string;
ones, tens: array[1..9] of string;
begin
ones[1] := 'One'; ones[2] := 'Two'; ones[3] := 'Three'; ones[4] := 'Four';
ones[5] := 'Five'; ones[6] := 'Six'; ones[7] := 'Seven'; ones[8] := 'Eight'; ones[9] := 'Nine';
tens[2] := 'Twenty'; tens[3] := 'Thirty'; tens[4] := 'Forty'; tens[5] := 'Fifty';
tens[6] := 'Sixty'; tens[7] := 'Seventy'; tens[8] := 'Eighty'; tens[9] := 'Ninety';
write('Enter a number: ');
readln(number);
if (number = 0) then
word := 'Zero'
else
begin
quotient := number div 10;
remainder := number mod 10;
if (quotient > 0) then
word := tens[quotient]
else
word := '';
if (remainder > 0) then
word := word + ' ' + ones[remainder];
end;
writeln('Word representation of the number is: ', word);
end.

Программа запрашивает у пользователя целое число и преобразует его в слова, а затем выводит результат на экран.