Работа светофора для водителей запрограммирована следующим образом: в начале каждого часа в течение трёх минут горит зелёный сигнал, затем, в течение одной минуты – жёлтый, в течение двух минут – красный, в течение трёх минут –...

Question

Работа светофора для водителей запрограммирована следующим образом: в начале каждого часа в течение трёх минут горит зелёный сигнал, затем, в течение одной минуты – жёлтый, в течение двух минут – красный, в течение трёх минут –...

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

Var T : Real; Begin Readln(T); T:=T-Int(T/6)*6; If T<=3 then Writeln('Зелёный') else If T<=4 then Writeln('Жёлтый') else Writeln('Красный'); end.