数学，放弃关于对撞机的说法吧。它不构成任何危险。只是政治家和科学家需要撒尿。 美国人曾经试图用微波炉 "加热空气"--他们损失惨重，现在记者们在这一领域行走 :)) - 顺便说一下，关于128。 以下内容就可以了。 34688 34866 36468 38864 43668 44946 44964 63468 等。 - 以下是该计划本身。 - '声明 Dim M As Long Dim N As Long Dim Koeficient As Long
Private Sub Command1_Click() Dim MaxChislo As Long Dim MinChislo As Long Dim i As Long Dim strok As String '设置初始数据 MinChislo = 1 MaxChislo = 100000 Koeficient = 128 For i = MinChislo To MaxChislo strok = LTrim(RTrim(Str(i)) If ProizCifr(strok) / SumCifr(strok) = Koeficient Then Print strok Else ' Print "未找到" End If Next i End Sub
'总计数 Private Function SumCifr(Stroca As String) As Long Dim i As Long Dim Summa As Long Dim Cifra As Long For i = 1 To Len(Stroca) Cifra = Val(Mid(Stroca, i, 1) ) Summa = Summa + Cifra Next i SumCifr = Summa End Function
'PROIZ计算 Private Function ProizCifr(Stroca As String) As Long Dim i As Long Dim Proiz As Long Dim Cifra As Long Proiz = 1 For i = 1 To Len(Stroca) Cifra = Val(Mid(Stroca, i, 1) ) Proiz = Proiz * Cifra Next i ProizCifr = Proiz End Function
Richie, will you solve it yourself?
So I came up with it myself :)
)那么就把它变成四个而不是三个。还有128，而不是12。
我发现，这些点不仅位于以某一点为中心的圆上==多边形的中心。
但也是在一组压在多边形边缘的半径圆上。
这很容易理解，如果想象一下所有弦的中点的位置，这些弦的一个端点与圆相交在一个固定的点。
也许这些圆圈上还有一些 "半点"。(c) 那就是答案可能会超过明显的最低限度（1976年）。
我进一步思考。
// 顺便说一下，1976年 == 2*2*2*13*19
// 我不知道这是否有助于本案。但我考虑到了这一点。:)
同样，如果所有的都相等，那么512*a=a*a*a*a，即a=8。8888这个数字也略带神秘色彩。
没有想到其他解决办法。但任何三位数的乘积都大于128。
那就给我四位数而不是三位数。而且不是以12为单位，而是以128为单位。
我有一个用BASIC编写的程序，所以不要用它来 "填充我":))
У меня программа есть на бейсике, так, что меня этим не "засыпать" :)))
容易。如果这个数字是，比如说，30位数，你的血管将被折磨得无法计数。对撞机摧毁地球会更快。
数学，放弃关于对撞机的说法吧。它不构成任何危险。只是政治家和科学家需要撒尿。
美国人曾经试图用微波炉 "加热空气"--他们损失惨重，现在记者们在这一领域行走 :))
-
顺便说一下，关于128。
以下内容就可以了。
34688
34866
36468
38864
43668
44946
44964
63468
等。
-
以下是该计划本身。
-
'声明
Dim M As Long
Dim N As Long
Dim Koeficient As Long
Private Sub Command1_Click()
Dim MaxChislo As Long
Dim MinChislo As Long
Dim i As Long
Dim strok As String
'设置初始数据
MinChislo = 1
MaxChislo = 100000
Koeficient = 128
For i = MinChislo To MaxChislo
strok = LTrim(RTrim(Str(i))
If ProizCifr(strok) / SumCifr(strok) = Koeficient Then
Print strok
Else
' Print "未找到"
End If
Next i
End Sub
'总计数
Private Function SumCifr(Stroca As String) As Long
Dim i As Long
Dim Summa As Long
Dim Cifra As Long
For i = 1 To Len(Stroca)
Cifra = Val(Mid(Stroca, i, 1) )
Summa = Summa + Cifra
Next i
SumCifr = Summa
End Function
'PROIZ计算
Private Function ProizCifr(Stroca As String) As Long
Dim i As Long
Dim Proiz As Long
Dim Cifra As Long
Proiz = 1
For i = 1 To Len(Stroca)
Cifra = Val(Mid(Stroca, i, 1) )
Proiz = Proiz * Cifra
Next i
ProizCifr = Proiz
End Function
34688不起作用：和是29，积不能被这个质数整除。你不能让一朵石头花...而且没有一个是完全合适的。
P.S. 哦，你有五位数!
О других решениях не думал. Но произведение любых трех цифр больше 128.
该解决方案是唯一的。
写一个程序没有问题。
例如，在预告片中，4位数的脚本给出了一个任意除数的所有解决方案。(顺便说一下，其速度令人惊喜）。
它用嵌套循环来解决。
有趣的是：如何为任意数量的字符（在参数中指定）编写一个程序。
有哪些选择？
递归似乎是有效的，但它很耗费堆栈。我想做的是递归。有其他想法吗？
里奇，我意识到对撞机有点过头了。
34688不起作用：和是29，积不能被这个质数整除。你不能让一朵石头花...
而你提到的那些东西根本就没有作用。
我今天不是很好，我工作太辛苦了。
-
А вот интересно: как написать прогу для произвольного количества знаков (задаваемого в параметре).
Какие варианты?
Рекурсия вроде прокатывает, но расходно по стеку. Щас сделаю рекурсию. Ещё идеи есть?
没有任何选择。对于30个字符，你需要以某种方式有效地限制过冲。
递归可能是无用的（如果字符数超过10）。