比赛 20120914 评测结果 AAAAAAAAAA
题目名称 悠闲的漫步 最终得分 100
用户昵称 digital-T 运行时间 0.004 s
代码语言 Pascal 内存使用 0.17 MiB
提交时间 2012-09-14 17:59:10
显示代码纯文本
var
p,i,j,k,ans:longint;
d1,d2:array[1..1000]of integer;
color:array[1..1000]of boolean;

procedure check(a,b:longint);
var x,y:longint;
begin
if (d1[a]=0)and(d2[a]=0) then if b+1>ans then ans:=b+1;
color[a]:=true;

if d1[a]>0 then check(d1[a],b+1);
if d2[a]>0 then check(d2[a],b+1);
color[a]:=false;
end;


begin
assign(input,'stroll.in');reset(input);
assign(output,'stroll.out');rewrite(output);

ans:=0;
read(p);
for i:=1 to p-1 do
begin
read(k);
read(d1[k],d2[k]);
end;
fillchar(color,sizeof(color),false);
check(1,0);
write(ans);
close(input);close(output);
end.