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