凌乱的yyy

题目：

题目背景

快noip了，yyy很紧张！

题目描述

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

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

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

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

作者思路：

1.先按结束时间升序排序
2.选择第一个任务
3.再依次判断开始时间是否与上一个已选任务冲突
4.如果没有则选择此任务
5.最后输出选择的任务数量

代码：

var a,b:array[0..1000000] of longint;
    x,n,ans,i:longint;
procedure qsort(l,r:longint);
var i,j,mid,t:longint;
begin
  i:=l;
  j:=r;
  mid:=b[(l+r) div 2];
  repeat
    while b[i]<mid do inc(i);
    while b[j]>mid do dec(j);
    if i<=j then
    begin
      t:=b[i]; b[i]:=b[j]; b[j]:=t;
      t:=a[i]; a[i]:=a[j]; a[j]:=t;
      inc(i); dec(j);
    end;
  until i>j;
  if l<j then qsort(l,j);
  if i<r then qsort(i,r);
end;
begin
  read(n);
  for i:=1 to n do read(a[i],b[i]);
  qsort(1,n);
  x:=0;
  for i:=1 to n do
    if a[i]>=x then
    begin
      inc(ans);
      x:=b[i];
    end;
  write(ans);
end.