Cod sursa(job #338196)

Utilizator doruletzPetrican Teodor doruletz Data 5 august 2009 13:54:40
Problema Stergeri Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.34 kb
var n,k:longint;
    i,m:0..100000;
    st,fn:array[0..100000]of longint;
    t:text;
begin
 assign(t,'stergeri.in'); reset(t);
  readln(t,n,m,k);
  for i:=m downto 1 do readln(t,st[i],fn[i]);
 close(t);
 for i:=1 to m do
  if k>=st[i] then k:=k+(fn[i]-st[i]+1);
 assign(t,'stergeri.out'); rewrite(t);
  writeln(t,k);
 close(t);
end.