比赛 NOIP2008集训模拟4 评测结果 AWWAWAWWAW
题目名称 彩色穿孔卡片 最终得分 40
用户昵称 maxiem 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2008-11-13 09:07:18
显示代码纯文本
program punch;
var
  i,j,sum,n:integer;
  card:array [1..10000] of record
    a,b:longint;
  end;
begin
  assign (input,'punch.in');
  reset (input);
  readln (n);
  for i:=1 to n do readln (card[i].a,card[i].b);
  close (input);
  assign (output,'punch.out');
  rewrite (output);
  sum:=n;
  for i:=1 to n-1 do for j:=i+1 to n do if (card[j].a<=card[i].a) and (card[j].b>=card[i].b) then dec(sum);
  writeln (sum);
  close (output);
end.