Cod sursa(job #190378)
| Utilizator |  Antoanela Siminiuc antoanela |
Data | 21 mai 2008 18:50:05 |
|---|---|---|---|
| Problema | Stergeri | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.34 kb |
var f,g:text;
x,y,n,m,k,c,i:longint;
begin
assign(f,'stergeri.in');
assign(g,'stergeri.out');
reset(f);
rewrite(G);
read(f,n,m,k);
n:=k;
for i:=1 to m do
begin
read(f,x,y);
inc(c,y-x+1);
if (x<=k)then
begin
inc(k,c);
c:=0;
end;
end;
write(g,k);
close(f);
close(g);
end.
