Все равно не хватает. Где контакты, между которыми измеряется ток? Сетка может быть полубесконечной с началом в начале координат и первым контактом. Тогда достаточно перекусить два.
А если один из контактов - где-нить в центре сети, то достаточно четырех - вокруг него.
Dim a, b, c, d, i, i, z As Long Private Sub Command1_Click() a = 1 b = 2 c = 3 d = 4 For i = 1 To 20 z = a a = a - b b = b - c c = c - d d = d - z Print a, b, c, d Next i End Sub
YUBA，"随机 "这个词在这里不太合适。
简而言之，答案（337）是一个。
也就是说，你能说出这样的数字排列，其中第一百位上的那个数字既不会在第一次也不会在第二次中移动？
P.S. 这个问题有点类似于这个主题中的第一个问题（关于彼得）：似乎条件不够，几乎任何数字都适合。
我现在明白了。我会考虑的 :)明天，我现在不能想。
Ну ты даешь. Я надеялся на интригу...
Доказывай.
我不知道如何证明...而且我不喜欢...这不是我的事......寻找答案是我的事。 // 并找到他们... :)
// 该死的，我曾经很喜欢它。我曾经很喜欢它。
.....
我会给它一个机会。首先我要指出的是，在100号位置找到 "100 "仍然是不动的充分条件，而只是必要条件。
除此之外，所有小于100的数字最初都必须在小于100的地方（按任何顺序）。其他的人，分别对剩下的人--也是按任何顺序。
我试着反过来证明一下。// 这就是我有多讨厌。
如果1...99位中至少有一个数字>=100，那么在第一遍时，它就会被分拣过程抓住，并从左到右移动，直到它遇到一个更大的数字。如果发生这种情况，它将保持 "在会议地点"，而一个新的最大的数字将向右爬行。 越过 "边界"（100）的最大数字将不可避免地 "移动 "站在那里的数字，如果它被证明比它小。在这一点上，你可以停止分析第一遍，转到第二遍。如果在'数位'范围101...1982中至少有一个数字小于或等于100，它就会被进程抓住并开始向左移动....。等。(见镜子中第一遍的描述)。因此，只有一种方法可以让数字100静止不动：把数字100放在那里，并让所有小于100的数字清楚地预先分组到100的左边，而所有较大的数字则分别预先分组到100的右边。
这就是我所能说的。我不知道这有多大的证明作用，但我已经有点提供了明显的证据。//至少对我自己来说是这样的 )))
在我婆婆看来：是1981这个数字，而不是100 :)
Все равно не хватает. Где контакты, между которыми измеряется ток? Сетка может быть полубесконечной с началом в начале координат и первым контактом. Тогда достаточно перекусить два.
А если один из контактов - где-нить в центре сети, то достаточно четырех - вокруг него.
我同意。我现在要重做。:)
这是它的措辞方式。
Dim a, b, c, d, i, i, z As Long
Private Sub Command1_Click()
a = 1
b = 2
c = 3
d = 4
For i = 1 To 20
z = a
a = a - b
b = b - c
c = c - d
d = d - z
Print a, b, c, d
Next i
End Sub
Dim a, b, с, d, i, z As Long
Private Sub Command1_Click()
.......... ...
Next i
End Sub
..........
// 顺便说一下，二的程度在序列中以巨大的数字表示，这一事实令人惊讶。也是不可避免的？