hfl 2008-10-30 19:46:00
点我顶贴
收藏
删除
核心：
readln(x,y)；
fillchar(f,sizeof(f),false)；
t:=x；
while t<>a[t] do
begin
f[t]:=true；
t:=a[t]；
end；
f[t]:=true；
t:=y；
while t<>a[t] do
begin
if f[t]=true then begin writeln(t)；halt；end；
t:=a[t]；
end；
if f[t]=true then begin writeln(t)；halt；end；
end.