比赛 20130729 评测结果 AWWWWWWWWW
题目名称 捉迷藏 最终得分 10
用户昵称 农场主 运行时间 0.009 s
代码语言 Pascal 内存使用 8.02 MiB
提交时间 2014-07-17 10:00:08
显示代码纯文本
    var
    dl:array[1..99999] of integer;
    a:array[1..2000,1..2000] of integer;
    pre:array[1..20000]of integer;
    h,d,i,j,k,n,m,num,c,ch:integer;
    begin
    assign(input,'hideseek.in');
    assign(output,'hideseek.out');
    reset(input);
    rewrite(output);
    read(n,m);

    for i:=1 to m do
    begin
    read(h,d);
    a[h,d]:=1;
    a[d,h]:=1;

    end;

    h:=1;
    d:=2;
    dl[h]:=1;
    pre[1]:=-1;
    repeat
    c:=ch;
    for i:=1 to n do
    if (a[dl[h],i]=1)and(pre[i]=0) then
    begin
    pre[i]:=dl[h];
    dl[d]:=i;
    d:=d+1;
    ch:=c+1;

    end;
    h:=h+1;
    until c=ch;
    write(dl[h-1],' ',ch-1,' ',d-h+1,' ');
    close(input);
    close(output);

    end.