Case18. Дано целое число в диапазоне 100–999. Вывести строку-описание данного числа, например: 256 — «двести пятьдесят шесть», 814 — «восемьсот четырнадцать».
Решение от Дмитрия:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 |
алг описание числа (арг цел трехзначное_число, рез лит число) дано 100<=трехзначное_число<=999 надо нач лит сот,дес,един цел десятки,единицы,сотни сотни:=div(трехзначное_число,100) десятки:=mod(div(трехзначное_число,10),10) единицы:=mod(трехзначное_число,10) выбор при сотни=1: сот:="сто" при сотни=2: сот:="двести" при сотни=3: сот:="триста" при сотни=4: сот:="четыреста" при сотни=5: сот:="пятьсот" при сотни=6: сот:="шестьсот" при сотни=7: сот:="семьсот" при сотни=8: сот:="восемьсот" при сотни=9: сот:="девятьсот" все выбор при десятки=0: дес:="" при десятки=2: дес:=" двадцать" при десятки=3: дес:=" тридцать" при десятки=4: дес:=" сорок" при десятки=5: дес:=" пятьдесят" при десятки=6: дес:=" шестьдесят" при десятки=7: дес:=" семьдесят" при десятки=8: дес:=" восемьдесят" при десятки=9: дес:=" девяносто" все выбор при единицы=0: един:=" " при единицы=1: един:=" один" при единицы=2: един:=" два" при единицы=3: един:=" три" при единицы=4: един:=" четыре" при единицы=5: един:=" пять" при единицы=6: един:=" шесть" при единицы=7: един:=" семь" при единицы=8: един:=" восемь" при единицы=9: един:=" девять" все выбор при десятки+единицы=1: дес:=" десять" при десятки+единицы=2: дес:=" одиннадцать" при десятки+единицы=3: дес:=" двенадцать" при десятки+единицы=4: дес:=" тринадцать" при десятки+единицы=5: дес:=" четырнадцать" при десятки+единицы=6: дес:=" пятнадцать" при десятки+единицы=7: дес:=" шестнадцать" при десятки+единицы=8: дес:=" семнадцать" при десятки+единицы=9: дес:=" восемнадцать" при десятки+единицы=10: дес:=" девятнадцать" все число:=сот+дес+един кон |
Другие задачи из раздела Case можно посмотреть здесь.
Комментарии: