比赛 20130729 评测结果 ATAAWTTTTT
题目名称 奶牛的糖果 最终得分 30
用户昵称 Konan 运行时间 6.021 s
代码语言 Pascal 内存使用 4.27 MiB
提交时间 2014-07-17 09:41:49
显示代码纯文本
program  cc(input,output);
var
i,j,n,h,r:longint;
v,next:array[0..100000]of longint;
s:array[1..1000000]of longint;
begin
assign(input,'treat.in');
assign(output,'treat.out');
reset(input);
rewrite(output);
read(n);
for i:=1 to n do
read(next[i]);
for i:=1 to n do
begin
v[i]:=i;
s[i]:=1;
end;
i:=1;
j:=1;
for r:=1 to n do
begin
while v[next[i]]<>j do
begin
v[i]:=j;
i:=next[i];
s[r]:=s[r]+1;
end;
i:=r+1;
inc(j);
end;
for i:=1 to n do
writeln(s[i]);
close(input);
close(output);
end.