Cod sursa(job #184614)

Utilizator AndreiDDiaconeasa Andrei AndreiD Data 23 aprilie 2008 22:25:12
Problema Stergeri Scor 30
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.47 kb
var i,j,k:longint;   
f,g:text;   
v:array[1..200000002] of longint;   
x,y,n,m:int64;   
begin  
assign(f,'stergeri.in');reset(f);   
assign(g,'stergeri.out');rewrite(g);   
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;   
for i:=k downto 1 do begin  
v[i-1]:=v[i];   
k:=k-1;   
end;   
write(g,v[i],' ');   
close(f);   
close(g);   
end.