Pagini recente » Cod sursa (job #1807475) | Cod sursa (job #768050) | Cod sursa (job #251742) | Cod sursa (job #2782827) | Cod sursa (job #390895)
Cod sursa(job #390895)
program stergeri;
VAR f,g:text;
v:array [1..20000000] of shortint;
x1,x2,n,d,m,j,k,i:shortint;
BEGIN
assign(f,'stergeri.in');
assign(g,'stergeri.out');
reset(f);
rewrite(g);
readln(f,n,m,k);
for i:=1 to n do begin
readln (f,x1,x2);
d:=x2-x1+1;
for j:=1 to (n-x1) do
v[x1]:=v[x1+d];
n:=n-d;
x1:=0;
x2:=0;
end;
write(g,v[k]);
close(f);
close(g);
end.