Составить программу которая запрашивает месяц и выводит какое это время года — QBasic(Бейсик)

CLS
PRINT "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 ( Скачать )

Leave a Comment