比赛 |
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.