没看到从‘0’开始，无语 提交两次

水题。。。。。。。

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

program su_he(input,output);

var

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

i,j,l,m,total,x,y:longint;

begin

fillchar(a,sizeof(a),true);

readln(l,m);

for i:=1 to m do

begin

readln(x,y);

for j:=x to y do

a[j]:=false;

end;

total:=0;

for i:=0 to l do

if a[i]=true then inc(total);

writeln(total);

end.

最朴素的算法，学过pascal的人都能想到。

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

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

i,j,l,m,x,y,ans:integer;

begin

readln(l,m);

ans:=0;

fillchar(a,sizeof(a),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] then inc(ans);

writeln(ans);

end.

应学会使用数组

农夫山泉

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

i,m,j:integer; l,s,e,n:1..10000;

Begin

fillchar(a,sizeof(a),true);

readln(l,m);

for i:=1 to m do begin

readln(s,e);

for j:= s to e do a[j]:=false;

end;

for i:=0 to l do if a[i] then n:=n+1;

writeln(n);

end.

一星也做下纪念！

type

re=record

date:integer;

date2:integer;

end;

var

a:array[1..100] of re;

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

l,i,j,k,temp,max:integer;

begin

readln(l,k);

fillchar(b,sizeof(b),true);

for i:=1 to k do readln(a[i].date,a[i].date2);

for i:=1 to k do for j:=a[i].date to a[i].date2 do b[j]:=false;

for i:=0 to l do if b[i] then inc(max);

writeln(max);

end.

怎么感觉我的程序很长.......

数据太弱……

var i,j,k,l,m,x,y:integer;

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

begin

readln(l,m);

fillchar(a,sizeof(a),1);

for i:=1 to m do

begin

readln(x,y);

for j:=x to y do

a[j]:=0;

end;

k:=0;

for i:=0 to l do

k:=k+a[i];

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

编译通过...

├ 测试数据 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 i,j,k,l,m,x,y:integer;

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

begin

readln(l,m);

fillchar(a,sizeof(a),1);

for i:=1 to m do

begin

readln(x,y);

for j:=x to y do

a[j]:=0;

end;

k:=0;

for i:=0 to l do

k:=k+a[i];

writeln(k);

end.

Flag 　　 Accepted

题号 　　P1103

类型(?) 　　模拟

通过 　　6890人

提交 　　14172次

通过率 　　49%

难度 　　1

就这题还交了两次。。。

从看题、做题·调试、评测、修改、AC、发题解一共用了八分钟

hu~

5分钟AC

水中经典

var

l,m,i,j,sum:longint;t:packed array[0..100000] of boolean;

s,o:packed array[1..100000] of longint;

begin

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

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

for i:=1 to m do readln(s[i],o[i]);

for i:=1 to m do

for j:=s[i] to o[i] do t[j]:=false;

for i:=0 to l do if t[i] then sum:=sum+1;

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

var

a:array [-1..10001] of boolean;

l,m,x,i,a,b,s:longint;

begin

readln(l,m);

for i:=0 to l do

a[i]:=true;

for i:=1 to m do

begin

readln(a,b);

for x:=a to b do

a[x]:=false;

end;

s:=0;

for i:=0 to l do

if a[i]

then inc(s);

writeln(s);

end.

605030795这个菜菜的程序错了，我怀疑他有没有自己试过，鄙视~~~

var

l,m,a,b,c,d:integer;

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

md,mg:array[1..100] of integer;

begin

read(l,m);

for a:=1 to m do

read(md[a],mg[a]);

for b:=1 to m do

for c:=md to mg do

lj[c]:=1;

d:=0;

for a:=0 to l do

if lj[a]=0 then

d:=d+1;

write(d);

end.

....每题都是 我来这是干啥的

水题都做不出啊 痛苦ing。。。。

编译通过...

├ 测试数据 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(input,output);

var ab:array [-1..10001] of boolean;

l,m,x,i,a,b,zs:longint;

begin

readln(l,m);

for i:=0 to l do

ab[i]:=true;

for i:=1 to m do

begin

readln(a,b);

for x:=a to b do

ab[x]:=false;

end;

zs:=0;

for i:=0 to l do

if ab[i]

then zs:=zs+1;

writeln(zs);

end.

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

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

l,m,a,b:integer;

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

begin

readln(l,m);

for a:=1 to m do

readln(c[a,1],c[a,2]);

fillchar(road,sizeof(road),true);

for a:=1 to m do

for b:=c[a,1] to c[a,2] do

road[ b ]:=false;

b:=0;

for a:=0 to l do

if road[a] then b:=b+1;

write(b);

end.

我也来说句大话

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

对于水题 坚决秒杀

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

program p1004;

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

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

begin

readln(l,m);

s:=0;

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] then inc(s);

writeln(s);

end.