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.

Answer 2

Для решения данной задачи вам понадобится использовать арифметические операции и условные операторы в языке программирования Pascal.

Вот пример программы на Pascal, которая решает эту задачу:

program TrafficLight;

var
  t: integer;

begin
  writeln('Введите время t в минутах от начала часа:');
  readln(t);
  
  // Определение сигнала светофора для пешехода
  if (t mod 5) < 3 then
    writeln('Сейчас горит зеленый свет')
  else
    writeln('Сейчас горит красный свет');
  
  readln;
end.

В данной программе мы сначала считываем значение переменной `t` - время в минутах от начала часа. Затем, используя операцию взятия остатка от деления (`mod`), определяем остаток от деления времени на 5. Если остаток меньше 3, то выводим сообщение "Сейчас горит зеленый свет", иначе - "Сейчас горит красный свет".

Например, если пользователь вводит время `7`, то программа выведет "Сейчас горит зеленый свет", так как остаток от деления 7 на 5 равен 2, что меньше 3.

Надеюсь, эта информация поможет вам составить программу на Pascal для решения данной задачи.