Cod sursa(job #184566)
| Utilizator |  kis levente lorand kis_lori |
Data | 23 aprilie 2008 21:05:35 |
|---|---|---|---|
| Problema | Stergeri | Scor | 20 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.33 kb |
var n,m,k,i:longint;
x,y:array [1..100000] of integer;
begin
assign(input,'stergeri.in'); reset(input);
assign(output,'stergeri.out'); rewrite(output);
readln(n,m,k);
for i:=1 to m do readln(x[i],y[i]);
for i:=m downto 1 do
if x[i]<k then k:=k+(y[i]-x[i]+1);
writeln(k);
close(input); close(output);
end.
