Pagini recente » Diferente pentru problema/infasuratoare intre reviziile 20 si 21 | Statistici manghiuc stefan (manghiuc) | Istoria paginii utilizator/alexc23 | Profil taja | Cod sursa (job #298049)
Cod sursa(job #298049)
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.