记录编号 177476 评测结果 AAAAAAAAAA
题目名称 [NOIP 2005]校门外的树 最终得分 100
用户昵称 Gravatarwyc 是否通过 通过
代码语言 Pascal 运行时间 0.055 s
提交时间 2015-08-12 08:52:03 内存使用 0.14 MiB
显示代码纯文本
var
l,m,i,j,k,b,n:integer;
a:array[0..10000] of boolean;
begin
assign(input,'tsuri.in');
assign(output,'tsuri.out');
reset(input);
rewrite(output);
fillchar(a,sizeof(a),false);
i:=0;
readln(l,m);
for m:=1 to m do
begin
readln(j,k);
for b:=j to k do a[b]:=true;
end;
for n:=0 to l do
if a[n]=false then inc(i);
write(i);
close(input);
close(output);
end.