Предмет:
ИнформатикаАвтор:
princess93Var T : Real;
Begin
Readln(T);
T:=T-Int(T/6)*6;
If T<=3 then Writeln('Зелёный') else
If T<=4 then Writeln('Жёлтый') else Writeln('Красный');
это то?
Автор:
garfieldДобавить свой ответ
Предмет:
МатематикаАвтор:
charlie41Ответов:
Смотреть
Предмет:
ИнформатикаАвтор:
chesterОтветов:
Смотреть
Предмет:
ИнформатикаАвтор:
lobsterqainОтветов:
Смотреть