Дано вещественное число I, означающее время в минутах, прошедшее с начала очередного часа. Определить, сигнал какого цвета горит для пешеходов в этот момент — Pascal(Паскаль)

Работа светофора для пешеходов запрограммирована следующим образом: в начале каждого часа в течение трех минут горит зеленый сигнал, затем в течение двух минут — красный, в течение трех минут — опять зеленый и т. д.

program f;

label 1;

var
  p, i, code, n: integer;
  s: string;
  bb: boolean;

begin
1:
  write('I= ');
  readln(i);
  if p > 1000000 then
  begin
    writeln('ERROR: Pi < 999999');
    goto 1
  end;

  repeat
    if i > 0 then
    begin
      i := i - 3;
      s := 'zelenii';
    end;
    if i > 0 then
    begin
      i := i - 2;
      s := 'krasnii';
    end;

  until i <= 0;
  writeln(s);
  readln;

end.

Похожие записи/страницы:

Leave a Comment

23 + = 24