СРОЧНО!!! Задача PascalABC Светофор для автомобиля. Вводится время (до 60 минут). Зеленый...

Question

СРОЧНО!!!
Задача PascalABC
Светофор для автомобиля.
Вводится время (до 60 минут). Зеленый горит 2 минуты; желтый горит минуту; красный горит 3 минуты. Определить какой свет горит в минуту t. T вводится вручную.

Answer 1

Program hhh54;
var t: longint;
begin
  read (t);
  if ((t-1) mod 6 = 0) or ((t-2) mod 6 = 0) then write ('ЗЕЛЁНЫЙ')
  else begin
    if (t mod 3 = 0) and (t mod 6 <> 0) then write ('ЖЁЛТЫЙ')
    else write ('КРАСНЫЙ');
  end;
end.

Comments

Благодарю!!

---

всегда пожалуйста