Cod sursa(job #142469)

Utilizator Marius96Marius Gavrilescu Marius96 Data 24 februarie 2008 17:40:13
Problema Stergeri Scor 20
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.48 kb
var n,m,k,i,j,x,y:longint; v:array[1..60000] of boolean; f:text;
begin
fillchar(v,sizeof(v),true);
assign(f,'stergeri.in'); reset(f);
read(f,n,m,k);
read(f,x,y);
for i:=x to y do v[i]:=false;
for i:=2 to m do begin
read(f,x,y);
j:=x-1;
repeat
      j:=j+1;
      if not(v[j]) then y:=y+1
                   else v[j]:=false;
until j=y;
end;
close(f);
i:=0;
repeat
i:=i+1;
if v[i] then k:=k-1;
until k=0;
assign(f,'stergeri.out'); rewrite(f);
write(f,i);
close(f)
end.