输入数据竟然都没有重叠区间

program poj2665;
var
  l,a,b:longint;
  m,i:integer;
begin
  readln(l,m);
  while l<>0 do
  begin
    l:=l+1;
    for i:=1 to m do
    begin
      readln(a,b);
      l:=l-b+a-1;
    end;
    writeln(l);
    readln(l,m);
  end;
end.

• 呵呵，兄弟，题上说了没有重叠。：） (8) Nowitzki 2007-02-21 23:24:01
• 又一次尝到了不认真看题的恶果…… (0) xh176233756 2007-06-09 15:24:33