Pascal составить прграмму.

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

Question

Информатика

Зоя

16 июня, 01:42

Pascal составить прграмму.

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

+2

Ответы (1)

Знаете ответ на вопрос?

Адаша · Answer 1

Var a:integer;

begin

writeln ('Введите время (в минутах) ') ;

readln (a) ;

if ((a mod 10>=0) and (a mod 10=5) and (a mod 10< 8)) then writeln ('Зелёный')

else writeln ('Красный') ;

readln

end.