Cod sursa(job #125131)
Utilizator | Cezar Mocan CezarMocan | Data | 20 ianuarie 2008 11:33:58 |
---|---|---|---|
Problema | Stergeri | Scor | 20 |
Compilator | fpc | Status | done |
Runda | preONI 2008, Runda 3, Clasele 5-8 | Marime | 0.87 kb |
type port=record
x,y:longint;
end;
var n,m,k,i,j,nr,t:longint;
v,x:array[1..100100] of port;
begin
assign(input,'stergeri.in');reset(input);
assign(output,'stergeri.out');rewrite(output);
readln(n,m,k);
for i:=1 to m do
readln(v[i].x,v[i].y);
for i:=1 to m do
if v[i].x<=k then
nr:=i;
t:=k;
m:=nr;
repeat
begin
k:=t;
nr:=0;
for i:=1 to m do
begin
if (k>=v[i].x) then
t:=t+v[i].y-v[i].x+1
else
begin
inc(nr);
x[nr]:=v[i];
end;
end;
for i:=1 to nr do
v[i]:=x[i];
m:=nr;
end;
until t=k;
writeln(t);
close(input);close(output);
end.