Cod sursa(job #126521)

Utilizator borsosborsos adrian borsos Data 22 ianuarie 2008 13:25:44
Problema Stergeri Scor 30
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.86 kb
const max=4000000;
var f,g:text;
 a:array[1..max] of boolean;
 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);
fillchar(a,sizeof(a),true);
for i := 1 to t do begin
      readln(f,x,y);
      x1:=1;
      sters:=y-x+1;
      for j := 1 to n do begin
            if a[j] then inc(x1);
            if x1=x then break;
                         end;
      for k := j+1 to n do begin
            if a[k] then begin
                    sters:=sters-1;
                    a[k]:=false;
                         end;
             if sters=0 then break;
                          end;
                     end;
i:=1;
for i := 1 to n do begin
        if a[i] then nr :=nr-1;
        if nr=0 then break ;
                   end;
writeln(g,i);
close(f);
close(g);

end.