P1803 凌乱的yyy 洛谷

题目背景

快noip了，yyy很紧张！

题目描述

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

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

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

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

输入输出格式

输入格式：

第一行是一个整数n ，接下来n行每行是2个正整数ai,bi(ai<bi)，表示比赛开始、结束的时间。

输出格式：

一个整数最多参加的比赛数目。

var
  i,j,k,n,m,s,ans:longint;
  a,b,c:array[1..10000]of longint;


procedure init;
begin
  readln(n);
  fpr i:=1 to n do
    begin
      readln(a,b);
    end;
end;


procedure aa(l,r:longint);
var i,j,mid:longint;
t:match;
begin
  mid:=a[(l+r)div 2];
  i:=l;j:=r;
  while i<=j do
  begin
    while a[i]<mid do inc(i);
    while a[j]>mid do dec(j);
    if not(i>j) then
    begin
      t:=a[i];
      a[i]:=a[j];
      a[j]:=t;
      t:=b[i];
      b[i]:=b[j];
      b[j]:=b[i];
      inc(i);
      dec(j);
    end;
  end;
  if l<j then sort(l,j);
  if i<r then sort(i,r);
end;






begin
  init;
  aa(1,n);


  i:=0;
  j:=0;
 for i:=1 to n do 
   if (b[i]>k) and (a[i]>=k) 
     then  begin 
     k:=b[i]; 
     inc(ans); 
     end;
   writeln(ans);
end.