Question

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

Answer 1

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.