洛谷 1803——凌乱的yy（贪心）

题目背景

快noip了，yyy很紧张！

题目描述

现在各大oj上有n个比赛，每个比赛的开始、结束的时间点是知道的。

yyy认为，参加越多的比赛，noip就能考的越好（假的）

所以，他想知道他最多能参加几个比赛。

由于yyy是蒟蒻，如果要参加一个比赛必须善始善终，而且不能同时参加2个及以上的比赛。

输入输出格式

输入格式：
第一行是一个整数n ，接下来n行每行是2个正整数ai,bi(ai

type match=record
  a,b:longint;
end;
var n,i,t,ans:longint;
    m:array[1..1000000]of match;
procedure sort(l,r:longint);
var i,j,mid:longint;
    t:match;
begin
  mid:=m[(l+r)div 2].b;
  i:=l;j:=r;
  while i<=j do
  begin
    while m[i].b<mid do inc(i);
    while m[j].b>mid do dec(j);
    if not(i>j) then
    begin
      t:=m[i];
      m[i]:=m[j];
      m[j]:=t;
      inc(i);
      dec(j);
    end;
  end;
  if l<j then sort(l,j);
  if i<r then sort(i,r);
end;
begin
  readln(n);
  for i:=1 to n do
    readln(m[i].a,m[i].b);
  sort(1,n);
  t:=m[1].b;
  ans:=1;
  for i:=1 to n do
  begin
    if m[i].a<t then continue
    else
    begin
      inc(ans);
      t:=m[i].b;
    end;
  end;
  writeln(ans);
end.