Question

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

Answer 1

Var a:integer;
begin
  writeln('Введите время (в минутах)');
  readln(a);
  if ((a mod 10>=0)and(a mod 10< 3))or((a mod 10>=5)and(a mod 10< 8)) then writeln('Зелёный')
  else writeln('Красный');
  readln
end.