Pascal составить прграмму . Работа светофора запрограммирована таким образом : в начале каждого часа 3 минуты горит зелёный свет , затем 2 минуты красный , затем 3 минуты зелёный и т.д . Дано время t в минутах от начала часа . ...
Pascal составить прграмму .
Работа светофора запрограммирована таким образом : в начале каждого часа 3 минуты горит зелёный свет , затем 2 минуты красный , затем 3 минуты зелёный и т.д . Дано время t в минутах от начала часа . Определить сигнал какого цвета горит в этот момент времени для пешехода .
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы