var r : array[0..10010] of boolean;

l, m, a, b, x,j,s,k : integer;

begin

read(l,m);

for x:=1 to m do begin

readln(a,b);

for j:=a to b do r[j]:=True;

end;

s:=0;

for k:=0 to l do begin

if r[k]=false then s:=s+1;

end;

writeln(s);

end.

。。。好难

var

d:array[1..1000] of integer;

a,b,i,l:integer;

s:integer;

begin

read(l,m);

for i:=1 to l do d[i]:=1;

for i:=1 to m do

begin

readln(a,b);

for i:=a to b do d[i]:=0;

end;

s:=0;

for i:=1 to l do s:=s+d[i];

end.

so easy

var

s:array[0..10000] of 0..1; a,b,l,m,k,i,j:longint;

begin

readln(l,m); k:=0;

for i:=1 to m do

begin

readln(a,b);

for j:=a to b do

s[j]:=1;

end;

for i:=0 to l do

if s[i]=0 then inc(k);

writeln(k);

readln;

end.

var a:array[1..10000] of longint;

b:array[1..10000] of boolean;

cd,g,s,i,j:longint;

begin

read(cd,g);

for i:=0 to cd do

b[i]:=true;

for i:=1 to 2*g do

begin

read(a[i]);

if i mod 2=0 then

begin

for j:=a to a[i] do

b[j]:=false;

end;

end;

for i:=0 to cd do

if b[i]=true then s:=s+1;

writeln(s);

end.

#include

using namespace std;

int main()

{ int l,m,sum=0;

cin>>l>>m;

int cont[l+1];

for(int i=0;iaa>>bb;

for(int j=aa;j

汗，我还用的快排+线段合并

刚做完火烧赤壁那道题，想多了..。

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

program xmwds;

var

ar:array[0..10000]of boolean;

l,m,i,j,a,b:integer;

begin

readln(l,m);

fillchar(ar,sizeof(ar),true);

for i:=1 to m do

begin

readln(a,b);

for j:=a to b do ar[j]:=false;

end;

m:=0;

for i:=0 to l do

if ar[i] then inc(m);

writeln(m);

end.

`\

program lx1;

var l,m,i,j,x,y,sum:longint;

　　a:array[0..10000] of boolean;

begin

readln(l,m);

for i:=0 to l do a[i]:=true;

for i:=1 to m do begin

readln(x,y);

for j:=x to y do a[j]:=false;

end;

for i:=0 to l do if a[i]=true then inc(sum);

writeln(sum);

end.

program lx1;

var l,m,i,j,x,y,sum:longint;

a:array[0..10000] of boolean;

begin

readln(l,m);

for i:=0 to l do a[i]:=true;

for i:=1 to m do begin

readln(x,y);

for j:=x to y do a[j]:=false;

end;

for i:=0 to l do if a[i]=true then inc(sum);

writeln(sum);

end.

var

n,m:longint;

a:array[0..10000] of boolean;

i,j,k,t,ans:longint;

begin

readln(n,m);

fillchar(a,sizeof(a),false);

ans:=n+1;

for k:=1 to m do

　　begin

　　 readln(i,j);

　　 for t:=i to j do

　　　　if a[t]=false then begin dec(ans);a[t]:=true; end;

　　end;

writeln(ans);

end.

没事刷水题，注意0开始

var

n,m:longint;

a:array[0..10000] of boolean;

i,j,k,t,ans:longint;

begin

readln(n,m);

fillchar(a,sizeof(a),false);

ans:=n+1;

for k:=1 to m do

begin

readln(i,j);

for t:=i to j do

if a[t]=false then begin dec(ans);a[t]:=true; end;

end;

writeln(ans);

end.

program xiaomenwaideshu;

var a:array[0..1000]of boolean;

i,j,l,m,b,e,s:integer;

begin

fillchar(a,sizeof(a),false);

readln(l,m);

for i:=1 to m do

begin

readln(b,e);

for j=b to e do a[j]:=true;

end;

s:=0;

for i:=0 to l do

if not a[i] then inc(s);

writeln(s);

end.

不好意思

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

哈哈 第一次写线段树就把校门外的树1A了~~

#include

using namespace std;

int main()

{

int i,j,k[10001],a,b,c,d;

cin>>i>>j;

for(a=0;ab>>c;

for(d=b;d

program test;

var

a:array[0..10000]of integer;

l,m,i,j,s,e,ans:integer;

begin

readln(l,m);

fillchar(a,sizeof(a),0);

for i:= 1 to m do

begin

readln(s,e);

for j:= s to e do

a[j]:=1;

end;

ans:=0;

for i:= 0 to l do

if a[i]=0 then inc(ans);

writeln(ans);

end.