Case17. Дано целое число в диапазоне 10–40, определяющее количество учебных заданий по некоторой теме. Вывести строку-описание указанного количества заданий, обеспечив правильное согласование числа со словами «учебное задание», например: 18 — «восемнадцать учебных заданий», 23 — «двадцать три учебных задания», 31 — «тридцать одно учебное задание».
Решение от Дмитрия:
|
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 |
алг Case17 (арг цел а, рез лит колвозад) дано 9<а<41 надо нач лит десятки,единицы,учзад цел колводес,колвоед если 10<=а<=19 или а=40 то выбор при а=10: десятки:="десять" при а=11: десятки:="одиннадцать" при а=12: десятки:="двенадцать" при а=13: десятки:="тринадцать" при а=14: десятки:="четырнадцать" при а=15: десятки:="пятнадцать" при а=16: десятки:="шестнадцать" при а=17: десятки:="семнадцать" при а=18: десятки:="восемнадцать" при а=19: десятки:="девятнадцать" при а=40: десятки:="сорок" все единицы:="" учзад:=" заданий" все если 19<а<40 то колводес:=div(а,10) выбор при колводес=2: десятки:="двадцать" при колводес=3: десятки:="тридцать" все колвоед:=mod(а,10) выбор при колвоед=0: единицы:="" при колвоед=1: единицы:=" одно" при колвоед=2: единицы:=" два" при колвоед=3: единицы:=" три" при колвоед=4: единицы:=" четыре" при колвоед=5: единицы:=" пять" при колвоед=6: единицы:=" шесть" при колвоед=7: единицы:=" семь" при колвоед=8: единицы:=" восемь" при колвоед=9: единицы:=" девять" все выбор при колвоед=0: учзад:=" учебных заданий" при колвоед=1: учзад:=" учебное задание" при 1<колвоед<5: учзад:=" учебных задания" при 4<колвоед<10: учзад:=" учебных заданий" все все колвозад:=десятки+единицы+учзад кон |
Другие задачи из раздела Case можно посмотреть здесь.
Комментарии: