Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.