这题就是把长度排序，长度相等，就把重的放后面，最后看重量有一个地方下降了，就分组加一。
var
tj,n,i,j:longint;
c,w,s:array[0..1000]of longint;
begin
readln(n);
for i:=1 to n do
read(c[i],w[i]);
for i:=1 to n-1 do//要用冒泡，不知道为什么我用快排就错了
begin
for j:=i+1 to n do
if (c[i]>c[j])or(c[i]=c[j])and(w[i]>w[j]) then
begin
c[0]:=c[i];c[i]:=c[j];c[j]:=c[0];
w[0]:=w[i];w[i]:=w[j];w[j]:=w[0];
end;
end;
tj:=0;
for i:=1 to n do
begin
j:=1;
while s[j]>w[i] do inc(j);
if j>tj then inc(tj);
s[j]:=w[i];
end;
write(tj);
end.
本文章为转载内容，我们尊重原作者对文章享有的著作权。如有内容错误或侵权问题，欢迎原作者联系我们进行内容更正或删除文章。
