|
Помогите написать прогу про светлофор, плиз!
|
|
Работа светлофора для пешехода запрограммирывана следуйщим образом: начиная с начала каждого часа, в течение двух минут - красный, в течении трех минут - опять зеленый и т.д.
Дано вещественное число t, означающее время в минутах, прошедшее с начала очередного часа.
Определить, сигнал какого цвета горит для пешеходов в этот момент.
|
|
|
|
program SVET;
uses crt;
var t:real;
begin
clrscr;
Write ('Vvedite vremia:');
Read (t);
if frac(t/5)>=0.4 then write ('GREEN') else
Write ('RED');
readkey;
end.
Удваивается не в четыре, а в три раза!
|
|
|
|
|
|
