Cod sursa(job #226945)
| Utilizator |  alexandru catalisan basketbalistu92 |
Data | 3 decembrie 2008 09:47:35 |
|---|---|---|---|
| Problema | Stergeri | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.35 kb |
var t,n,x,y,i,m,k,j:longint;
a:array[1..200] of longint;
begin
assign(input,'stergeri.in');reset(input);
assign(output,stergeri.out');rewrite(output);
readln(n,m,k);
for i:=1 to n do
a[i]:=i;
for i:=1 to m do begin
readln(x,y);
t:=y-x+1;
for j:=x to n-t do
a[j]:=a[j+t];
n:=n-t;
end;
write(a[k]);
close(input);close(output);
end.
