PersonalCorpus 版 (精华区)

寄信人: sino (蚱蜢舟)
标  题: 1203
发信站: 哈工大紫丁香 (2002年03月18日13:13:06 星期一)
来  源: mtlab4.hit.edu.cn 

166833 05:15:50 18 Mar 2002
Bozhang,HIT,P.R.China 1203 Pascal Accepted 0.07 sec 229K

var
    r:array[1..30000] of word;
    a:array[-1..30000] of integer;
    i,j,k,n:integer;
begin
    readln(n);
    fillchar(r,sizeof(r),0);
    for i:=1 to n do begin readln(j,k);if j>r[k] then r[k]:=j end;
    fillchar(a,sizeof(a),0); a[-1]:=-1;
    for i:=1 to 30000 do begin
        k:=a[r[i]-1]+1;
        if k>a[i-1] then a[i]:=k else a[i]:=a[i-1];
    end;
    writeln(a[30000]);
end.
--
    ... 这一阵歌声传入湖边一个道姑耳中。她在一排柳树下悄立已久，

  晚风拂动她杏黄色道袍的下摆，拂动她颈中所插拂尘的万缕柔丝，心

  头思潮起伏，当真亦是「芳心只共丝争乱」 ...

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: mtlab4.hit.edu.cn]