李一恒 2008-11-27 06:16:00
点我顶贴
收藏
删除
var i,s,n,j,l,m:longint；
a,b,c:array[1..10000] of integer；
begin
readln(l,m)；
l:=l+1；
s:=0；
for i:=1 to m do begin
readln(a[i],b[i])；
c[i]:=b[i]-a[i]+1；
s:=s+c[i]；
end；
s:=l-s；
write(s)；
end.