n = Input["n="]; k = 0; Print["n=", n]While[n != 1, k++; If[EvenQ[n], n = n/2, n = 3 n + 1]];Print["k=", k]已知这样的k与n的关系，希望画出k与n的函数关系图，谢谢
2026年09月25日 16:01
有1个网友回答
网友（1）：
f[x_Integer] := f[x] = ((3 x + 1) # + x (# - 1)/2) &@Mod[x, 2]; list = NestWhileList[f, Input["n="], # != 1 &]; ListLinePlot@list
