Работа светофора для водителей запрограммирована следующим образом : в начале каждого часа в течении трех минут горит зеленый сигнал , затем , в течении одной минуты - желтый , в течении двух минут - красный , в течении трех минут - опять зеленый и т.д . Дано вещественное число Т , означающее время в минутах , прошедшее с начала очередного часа . Определись , сигнал какого цвета горит для водителей в этот момент
(Нужно написать программу на языке программирования QBasic )

1. Опишем циклическое состояние светофора от начала часа0 ≤ T < 3 ⇒ зеленый3 ≤ T < 4 ⇒ желтый4 ≤ T < 6 ⇒ красный2. Замечаем, что цикл смены состояний светофора составляет 6 секунд, т.е. взяв остаток от деления заданного T на 6, мы сведем задачу к состоянию, описанному в п.13. Операция "Взятие остатка от деления вещественного числа" в QBASIC отсутствует, поэтому будем получать некое k - целочисленное частное от деления  T на 6, а потом переопределять T = T - 6*k'Microsoft QBASIC 1.0DIM T AS DOUBLEINPUT "Введите T", TT = T - 6 * INT(T / 6)SELECT CASE TCASE IS <= 3   PRINT "Зеленый"CASE IS <= 4   PRINT "Желтый"CASE ELSE   PRINT "Красный"END SELECT