我写了一个程序来计算除数: - Dim koldelitVsego As Long Dim koldelitChisla As Long Dim i As Long Dim ii As Long -
Private Sub Command1_Click() koldelitVsego = 0 For i = 1 To 2002 koldelitChisla = 0 For ii = 1 To i If ( (i / ii) - Int(i / ii ))= 0 则 koldelitChisla = koldelitChisla + 1'如果 = 0 则除 以 Next ii koldelitVsego = koldelitVsego + koldelitChisla '打印 i, koldelitChisla Next i 打印 koldelitVsego End Sub - 原来是15542件
环保人士对大量伐木进行了抗议。木材公司的董事长向他们保证如下。"森林里有99%的松树。只有松树将被砍伐,而且松树的比例将几乎保持不变--98%。森林的哪一部分被指定用于砍伐?
是的,狡猾的主席和愚蠢的环保主义者:))
三位选手A、B、C跑了几次100米的比赛。当统计结果时,结果是A在一半以上的比赛中击败了B,B在一半以上的比赛中击败了C,而C在一半以上的比赛中击败了A。这可能发生吗? (来自Steingauz问题书)
我们所知道的关于跑步者的情况就是问题所说的。可能他们三个都是。
我写了一个程序来计算除数:
-
Dim koldelitVsego As Long
Dim koldelitChisla As Long
Dim i As Long
Dim ii As Long
-
Private Sub Command1_Click()
koldelitVsego = 0
For i = 1 To 2002
koldelitChisla = 0
For ii = 1 To i
If ( (i / ii) - Int(i / ii ))= 0 则 koldelitChisla = koldelitChisla + 1'如果 = 0 则除 以
Next ii
koldelitVsego = koldelitVsego + koldelitChisla
'打印 i, koldelitChisla
Next i
打印 koldelitVsego
End Sub
-
原来是15542件
"给年轻的数学家们。第一百个谜题 "和 "第二个谜题"。
也许那里的东西会派上用场。
===
我看到了这部电影:《费马的陷阱》。
有四个数学家被关在一个房间里,被迫在物理破坏的威胁下解决这些逻辑-数学问题。如果你不这样做,死亡就会来临。呲呲呲。
这实际上是一个侦探故事。具体而言。
有人看过吗?它与这个非常相似。你也在做谜语。不过,这里没有自残。
Очень похоже на эту ветку. Тоже загадки отгадываете. Правда, здесь без членовредительства.
咳咳......为什么你认为支部里剩下的人比一开始要少......?
Гхм.. А как ты думаешь, почему в ветке осталось меньше народу чем было вначале...?
我哪也没去,只是现在没时间去论坛了:))
я кстати никуда не ушел, просто щас времени на форумы нет:)))
你在哪里下潜艇......? 至于时间,没有了。:))
Svinozavr,你对跑步者怎么说?