Cod sursa(job #189442)

Utilizator AndreiDDiaconeasa Andrei AndreiD Data 14 mai 2008 16:35:58
Problema Stergeri Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.46 kb
var m,x,y,j:integer;
f,g:text;
n,i,k:longint;
v:array[1..2000000000] of 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.