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

Question

Информатика

Тонюня

26 октября, 12:19

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

+3

Ответы (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.