让n是一个整数和A = {2,3,...,10} 我想做如下:
- 将n除以2,因此有一个提醒r 2和一个商q 2。
- 将q 2除以3,因此有一个提示r 3和一个商q 3。
- 我们重复这个直到商小于下一个数字。
- 将最后一个商与之前的提醒写在一起。
例如 n=45
45/2 ....... r_2=1, q_2=22
22/3 ....... r_3=1, q_3=7
7/4 ....... r_4=3, q_4=1
因为q 4 = 1 小于下一个数字,即 5,所以我们打破。
结果是q 4 r 4 r 3 r 2等于 1311。
感谢您的帮助。
我这样做了,但它不起作用
n = 45;
i = 2;
list = {Mod[n, i]};
While[Quotient[n, i] >= i + 1, n == Quotient[n, i]; i++;
AppendTo[list, Mod[n, i]];
If[Quotient[n, i] < i + 1, Break[]]; AppendTo[list, Quotient[n, i]]];
list
Row[Reverse[list]]
这使
{1, 0, 15, 1, 11, 0, 9, 3, 7, 3}
Row[{3, 7, 3, 9, 0, 11, 1, 15, 0, 1}]
这不是我想要的结果。