Cod sursa(job #126359)

Utilizator tzipleatudTudor Tiplea tzipleatud Data 21 ianuarie 2008 22:19:58
Problema Stergeri Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.49 kb
Program restante;
VAR
n,m,k,i,ls,ld,min,s,primulnrd,primulnri,pd,pi:longint;
fin,fout:text;
begin
assign(fin,'stergeri.in');
reset(fin);
assign(fout,'stergeri.out');
rewrite(fout);
min:= 2000000;
read(fin,n,m,k);
for i:=1 to m do
begin
read(fin,ls,ld);
if(min>ls) then
min:=ls;
s:=s+(ld-ls+1);
end;
primulnrd:=min+s;
pd:=primulnrd-s;
primulnri:=min-1;
pi:=primulnri;
if(pi>=k) then
writeln(fout,k);
if(pd<=k)then
writeln(fout,k+s);
close(fin);
close(fout);
end.