13 lines
226 B
Text
13 lines
226 B
Text
Func Hq(n) = if n<2 then 1 else
|
|
Array qq[n+1];
|
|
qq[1] := 1;
|
|
qq[2] := 1;
|
|
for i = 3, n do
|
|
qq[i]:=qq[i-qq[i-1]]+qq[i-qq[i-2]]
|
|
od;
|
|
Return(qq[n]);
|
|
fi;
|
|
.
|
|
|
|
for i=1 to 10 do !Hq(i);!' ' od;
|
|
Hq(1000)
|