Паскаль. С клавиатуры вводится целое число от 1 до 1000, обозначающая сумму в рублях. Программа должна напечатать эту сумму прописью.Пример: пятнадцать рублей.

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

va
sum, units, tens, hundreds: integer;

begi
writeln('Введите сумму от 1 до 1000: ')
readln(sum);

if (sum < 1) or (sum > 1000) the
writeln('Ошибка. Введите число от 1 до 1000'
els
begi
hundreds := sum DIV 100
tens := (sum MOD 100) DIV 10
units := (sum MOD 100) MOD 10;

case hundreds o
1: write('сто ')
2: write('двести ')
3: write('триста ')
4: write('четыреста ')
5: write('пятьсот ')
6: write('шестьсот ')
7: write('семьсот ')
8: write('восемьсот ')
9: write('девятьсот ')
end
case tens o
1:
begi
case units o
0: write('десять ')
1: write('одиннадцать ')
2: write('двенадцать ')
3: write('тринадцать ')
4: write('четырнадцать ')
5: write('пятнадцать ')
6: write('шестнадцать ')
7: write('семнадцать ')
8: write('восемнадцать ')
9: write('девятнадцать ')
end
end
2: write('двадцать ')
3: write('тридцать ')
4: write('сорок ')
5: write('пятьдесят ')
6: write('шестьдесят ')
7: write('семьдесят ')
8: write('восемьдесят ')
9: write('девяносто ')
end
case units o
1: write('один ')
2: write('два ')
3: write('три ')
4: write('четыре ')
5: write('пять ')
6: write('шесть ')
7: write('семь ')
8: write('восемь ')
9: write('девять ')
end
writeln('рублей');

end
end.