不用代码 我还是不确定 3,5,7,9 的最少公倍数 是多少呢!
信息时代,我还是用计算机来解决问题的,
我用了15秒 在 vba 的立即窗体里 写了一句
for i = 1 to 100: j=i*11: ? iif( j mod 3 =2 and j mod 5 = 4 and j mod 7=6 and j mod 9=8, j & vbcrlf, "");: next 回车
没有结果的!再多用1秒, 改为 1000......
for i = 1 to 1000: j=i*11: ? iif( j mod 3 =2 and j mod 5 = 4 and j mod 7=6 and j mod 9=8, j & vbcrlf, "");: next 回车
2519
5984
9449
出来了! 2519,是对的!
再加上时间:
t=timer():for i = 1 to 10000: j=i*11: ? iif( j mod 3 =2 and j mod 5 = 4 and j mod 7=6 and j mod 9=8, j & " " & timer()-t & vbcrlf, "");: next
2519 3.90625E-03
5984 3.90625E-03
9449 3.90625E-03
12914 .0078125
16379 .015625
19844 1.953125E-02
23309 1.953125E-02
26774 1.953125E-02
30239 .0234375
33704 .0234375
37169 .0234375
40634 2.734375E-02
44099 2.734375E-02
47564 .03125
51029 .03125
54494 .03125
57959 3.515625E-02
61424 3.515625E-02
64889 3.515625E-02
68354 .0390625
71819 .0390625
75284 4.296875E-02
78749 .046875
82214 .046875
85679 .046875
89144 5.078125E-02
92609 5.078125E-02
96074 5.078125E-02
99539 .0546875
103004 .0546875
106469 .0546875
109934 5.859375E-02
共用时1分钟吧,出了32个,不知道对不对呢?