PersonalCorpus 版 (精华区)

寄信人: sino (蚱蜢舟)
标  题: 1022
发信站: 哈工大紫丁香 (2002年03月19日18:35:45 星期二)
来  源: mtlab4.hit.edu.cn 

167746 10:38:29 19 Mar 2002
Bozhang,HIT,P.R.China 1022 Pascal Accepted 0.02 sec 61K


var
    a:array[1..100,1..100] of byte;
    used:array[1..100] of boolean;
    all:set of 1..100;
    i,j,n:integer;
begin
    readln(n); all:=[];
    for i:=1 to n do begin
        j:=1;   all:=all+[i];
        read(a[i,j]);
        while a[i,j]<>0 do begin
            inc(j);
            read(a[i,j]);
        end;
        readln;
    end;
    while all<>[] do begin
        fillchar(used,sizeof(used),0);
        for i:=1 to n do begin
            j:=1;
            while a[i,j]<>0 do begin
                used[a[i,j]]:=true;
                inc(j);
            end;
        end;
        for i:=1 to n do if (i in all) and not used[i] then begin
            write(i,' ');
            all:=all-[i];
            a[i,1]:=0;
        end;
    end;
end.

--
    ... 这一阵歌声传入湖边一个道姑耳中。她在一排柳树下悄立已久，

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

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

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