Напишите программу построение светофора в паскале
var timeInSec:integer; // время в секундах color, s, m, h:byte; begin h := 4; //часы m := 5; //минуты s := 23; //секунды
timeInSec := h * 3600 + m * 60 + s; //перевод времени в секунды color := (timeInSec div 10) mod 3; {целочисленно делим на 10, чтобы узнать сколько раз светофор изменил цвет} {потом находим остаток деления на 3(количество цветов), чтобы узнать какой сейчас цвет} case color of //вывод ответа 0: writeln(Горит зеленый свет); //0 - это зеленый свет 1: writeln(Горит желтый свет); //1 - это желтый свет 2: writeln(Горит красный свет); //2 - это крсный свет end; end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
