比赛 NOIP2008集训模拟4 评测结果 AEAAAAEEEE
题目名称 彩色穿孔卡片 最终得分 50
用户昵称 WaterFire 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2008-11-13 09:53:23
显示代码纯文本
program waterfire;
const
fin='punch.in';
fout='punch.out';
type
ok=record
x,y:longint;
end;
var
i,j,n,color:longint;
data:array[0..1000] of ok;
f1,f2:text;
BEGIN
assign(f1,fin);reset(f1);
assign(f2,fout);rewrite(f2);
readln(f1,n);
color:=0;
for i:=1 to n do
readln(f1,data[i].x,data[i].y);

for i:=1 to n do
 for j:=1 to i-1 do
  begin
   if (data[i].x<=data[j].x)and(data[i].y>=data[j].y) then
        begin
         data[j].x:=0;
         data[j].y:=0;
        end;
   if (data[i].y>data[j].y)and(data[i].x>data[j].x)and(data[i].x<data[j].y) then data[j].y:=data[i].x;
   if (data[i].x<data[j].x)and(data[i].y<data[j].y)and(data[i].y>data[j].x) then data[j].x:=data[i].y;
  end;
for i:=1 to n do
if not((data[i].x=0)and(data[i].y=0)) then inc(color);
writeln(f2,color);
close(f1);close(f2);
END.