1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | CLSPRINT "Vvedite nazvanie mesyaca"INPUT a$SELECT CASE a$ CASE IS = "yanvar", "fevral", "dekabr" PRINT "Zima" CASE IS = "mart", "aprel", "may" PRINT "Vesna" CASE IS = "iyun", "iyul", "avgust" PRINT "Leto" CASE IS = "sentyabr", "oktyabr", "noyabr" PRINT "Osen" CASE ELSE PRINT "Net takogo mesyaca"END SELECT |
Тестирование выполнено в программе QB64 ( Скачать )