Cod sursa(job #405085)
| Utilizator |  E1 La5c01 05_Yohn |
Data | 27 februarie 2010 15:12:50 |
|---|---|---|---|
| Problema | Stergeri | Scor | 100 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.29 kb |
var a,b:array[1..100000]of longint;
n,m,k,i:longint;
begin
assign(input,'stergeri.in'); reset(input);
assign(output,'stergeri.out'); rewrite(output);
read(n,m,k);
for i:=1 to m do read(a[i],b[i]);
for i:=m downto 1 do if a[i]<=k then k:=k+b[i]-a[i]+1;
write(k);
close(output);
end.