Cod sursa(job #195643)

Utilizator AndreiDDiaconeasa Andrei AndreiD Data 20 iunie 2008 13:26:55
Problema Stergeri Scor 30
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.38 kb
var i,j,k:longint;   
f:text;
v:array[1..20000000] of longint;
x,y,n,m:longint;
begin  
assign(f,'stergeri.in');reset(f);   
read(f,n,m,k);
for i:=1 to n do  
v[i]:=i;   
for i:=1 to m do begin  
read(f,x,y);   
  for j:=x to n do  
    v[j]:=v[j+(y-x+1)];   
    n:=n-1;   
end;   
close(f);
assign(f,'stergeri.out');rewrite(f);
write(f,v[k],' ');
close(f);
end.