//校门外的树

#define Max_L 10000

#include

int road[Max_L];

int M=0, L=0, begin=0, end=0;

int main()

{

int i, j, ans=0;

scanf("%d %d", &L, &M);

for(i=0; i

究级水题进化---|>油炸题......

提高AC率的好题

program tree;

var road:array[1..10000] of boolean;

m,i,j,l,temp1,temp2,sum:longint;

begin

read(l,m);

fillchar(road,sizeof(road),false);

for i:=1 to m do begin

read(temp1,temp2);

for j:=temp1 to temp2 do

road[j]:=false;

end;

sum:=0;

for i:=1 to l do

if road[i] then

sum:=sum+1;

writeln(sum);

end.

onst max=10001;

var

a,b,i,j,k:integer;

c:array[1..101,1..2]of integer;

d:array[0..max] of integer;

begin

readln(a,b);

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

for i:=1 to b do

begin

readln(c,c);

for j:=c to c do

d[j]:=0;

end;

k:=0;

for i:=0 to a do

if d[i]=1 then k:=k+1;

writeln(k);

end.

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

program p1103;

var a:array[0..100000] of longint;

f:array [0..100000] of boolean;

i,j,k,st,en,l,m:longint;

begin

readln(l,m);

fillchar(f,sizeof(f),true);

k:=0;

for i:=1 to m do

begin read(st,en);

for j:=st to en do

if f[j] then begin f[j]:=false;inc(k);end;

end;

writeln(l-k+1);

Const

MaxN=10000;

Var

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

sum,l,m,data1,data2,i,j:longint;

Begin

readln(l,m);

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

for i:=1 to m do

begin

readln(data1,data2);

for j:=data1 to data2 do a[j]:=true;

end;

sum:=0;

for i:=0 to l do

if a[i]=false then inc(sum);

writeln(sum);

End.

很简单很和谐的水题……

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

我的算法和 aojian一样 用一个数组来存布尔 最后是true累加输出

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

x,y:array[1..100]of integer;

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

begin

read(l,m);

for i:=0 to l do

a[i]:=true;

for i:=1 to m do read(x[i],y[i]);

for i:=1 to m do

for j:=x[i] to y[i] do

a[j]:=false;

s:=0;

for i:=0 to l do

if a[i] then inc(s);

writeln(s);

end.

记录号 Flag 得分 记录信息 环境 评测机 程序提交时间

R984215 Accepted 100 From 1gjh1－

　 P1103 FPC Vag 6K 2008-10-31 20:16:14

From zhouyc

校门外的树 全国青少年信息学奥林匹克分区联赛 (NOIp) 竞赛原题

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

基数一下OK

var i,j,k,l,q,w,e,m,n:longint;

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

begin

read(m,n);

for i:=0 to m do a[i]:=0;

for i:=1 to n do

begin

　　read(a[1],a[2]);

　　 for j:=a[1] to a[2] do a[j]:=1;

end;

for i:=0 to m do if a[i]=0 then q:=q+1;

write(q);

end.

不用想复杂了。

怎么做都秒杀。

第10000个交 ~~ 纪念一下

program tree;

var

i,j:array[0..10000] of integer;

l,m,s,k,t:integer;

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

begin

read(l,m);

s:=0;

for k:= 1 to m do readln(i[k],j[k]);

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

for k:= 1 to m do

for t:= i[k] to j[k] do a[t] :=false;

for k:= 0 to l do

if a[k] then s:=s+1;

write(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

数据太弱了。。。暴搜都能拿0ms

l19951129

var i,j,k,l,q,w,e,m,n:longint;

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

begin

read(m,n);

for i:=0 to m do a[i]:=0;

for i:=1 to n do

begin

　　read(a[1],a[2]);

　　 for j:=a[1] to a[2] do a[j]:=1;

end;

for i:=0 to m do if a[i]=0 then q:=q+1;

write(q);

end.

var i,j,k,l,q,w,e,m,n:longint;

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

begin

read(m,n);

for i:=0 to m do a[i]:=0;

for i:=1 to n do

begin

read(a[1],a[2]);

for j:=a[1] to a[2] do a[j]:=1;

end;

for i:=0 to m do if a[i]=0 then q:=q+1;

write(q);

end.

NOv.Demon

Var

i,j,k,L,M,ans:longint;

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

dap:array[1..100,1..2]of longint;

//=====================================

Procedure init;

begin

readln(l,m);

for i:=0 to l do

map[i]:=true;

for i:=1 to m do

readln(dap,dap);

end;

//=====================================

Procedure solve(x,y:longint);

begin

for j:=x to y do

map[j]:=false;

end;

//=====================================

Procedure solvee;

begin

for i:=0 to l do

if map[i]=true

then inc(ans);

writeln(ans);

end;

//=====================================

Procedure solv;

begin

for i:=1 to m do

solve(dap,dap);

solvee;

end;

//=====================================

Begin

init;

solv;

End.

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

这么水的题提交了四次

真丢人啊……

怎么线段树就过不了呢？？

我还是纯模拟顶歇过的！！

线段树做吧