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

Question

Информатика

Евфимия

16 апреля, 08:09

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

+2

Ответы (1)

Знаете ответ?

Селестина · Answer 1

var t:integer;

Begin

read (t) ;

while t > 6 do

t:=t-6;

case t of

0 ... 2: write ('Green') ;

3: write ('Yellow') ;

4 ... 6: write ('Red') ;

end;

End.