Cod sursa(job #124927)
| Utilizator | Data | 20 ianuarie 2008 10:18:22 | |
|---|---|---|---|
| Problema | Stergeri | Scor | 90 |
| Compilator | fpc | Status | done |
| Runda | preONI 2008, Runda 3, Clasele 5-8 | Marime | 0.6 kb |
var f1,f2:text;
i,n,m,k:longint;
v1,v2:array[0..100010] of longint;
begin
assign(f1,'stergeri.in');
reset(f1);
assign(f2,'stergeri.out');
rewrite(f2);
read(f1,n,m,k);
for i:=1 to m do
read(f1,v1[i],v2[i]);
for i:=m downto 1 do
if k>v1[i] then
begin
if k>v2[i] then
k:=k+v2[i]-v1[i]+1
else k:=v2[i]+(k-v1[i]+1);
end;
writeln(f2,k);
close(f1);
close(f2);
end.