Cod sursa(job #298049)

Utilizator lakat_tLakatos Tamas lakat_t Data 5 aprilie 2009 20:10:53
Problema Hotel Scor 20
Compilator fpc Status done
Runda preONI Marime 0.95 kb
program hotel;
uses
  SysUtils;

var
 x: array [1..100000] of boolean;
 f, g: text;
 ii, n, p, c: integer;

procedure tip1;
var
 j, i, m: longint;
begin
 readln(f, i, m);
 for j:=i to i+m-1 do
 x[j]:=true;
end;

procedure tip2;
var
 j, i, m: longint;
begin
 readln(f, i, m);
 for j:=i to i+m-1 do
 x[j]:=false;
end;

procedure tip3;
var
 max, db, j: longint;
begin
 readln(f);
 max:=0;
 db:=0;
 for j:=1 to n do
  begin
   if x[j]=false then begin
                       db:=db+1;
                       if db>max then max:=db;
                      end
                 else begin
                       db:=0;
                      end;
  end;
 writeln(g, max);
end;

begin
 assign(f, 'hotel.in');
 assign(g, 'hotel.out');
 reset(f);
 rewrite(g);
 readln(f, n, p);
 for ii:=1 to p do
  begin
   read(f, c);
   case c of
    1: tip1;
    2: tip2;
    3: tip3;
   end;
  end;
 close(f);
 close(g);
end.