Cod sursa(job #126518)

Utilizator borsosborsos adrian borsos Data 22 ianuarie 2008 13:21:20
Problema Stergeri Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.45 kb
const max=400000;
var f,g:text;
 a:array[1..max] of longint;
 i,j,k,sters,x,x1,y,n,t,nr:longint;
begin
 assign(f,'stergeri.in');reset(f);
 assign(g,'stergeri.out'); rewrite(g);
readln(f,n,t,nr);
for i := 1 to n do
    a[i]:=i;
for i := 1 to t do begin
      readln(f,x,y);
      for j:= 1 to n do
            a[j]:=a[j]-(y-x+1);
                   end;
for i := 1 to n do
        if a[i]=nr then break;
writeln(g,i);
close(f);
close(g);

end.