420988824 2009-05-01 01:54:00
点我顶贴
收藏
删除
program bmy；
var
n,l,m,a,b,i,j:integer；
s:array[0..10000]of integer；
begin
readln(l,m)；
for i:=0 to l do
s[i]:=1；
for i:=1 to m do
readln(a,b)；
for j:=a to b do
s[j]:=0；
n:=0；
for i:=0 to l do
if s[i]<>0 then n:=n+1；
writeln(n)；
end.
#1 fjxmlhx@2008-02-27 06:53:00
917
回复
删除
for i:=0 to l do
s[i]:=1；
改成fillchar(s,sizeof(s),1)；
同时S请改成longint类型
#2 懒人@2008-06-05 18:33:00
1787
回复
删除
for i:=1 to m do
readln(a,b)；
for j:=a to b do
s[j]:=0；
你这一段忘加begin,end了
改成：
for i:=1 to m do
begin
readln(a,b)；
for j:=a to b do
s[j]:=0；
end；
不然第一个循环只会循环readln.