好题大家玩之经典：汽水瓶换盖子

不规则结构

有这样一道智力题：“某商店规定：三个空汽水瓶可以换一瓶汽水。小张手上有十个空汽水瓶，她最多可以换多少瓶汽水喝？”答案是5瓶，方法如下：先用9个空瓶子换3瓶汽水，喝掉3瓶满的，喝完以后4个空瓶子，用3个再换一瓶，喝掉这瓶满的，这时候剩2个空瓶子。然后你让老板先借给你一瓶汽水，喝掉这瓶满的，喝完以后用3个空瓶子换一瓶满的还给老板。
这还没有完，有的老板不愿意愿意借一瓶汽水换瓶子。上面的场景就只能换4瓶了。
附件里是题目。

cidanji

愿意借是不是就是n\2

不规则结构

cidanji 发表于 2024-9-24 19:45
愿意借是不是就是n\2

假如你说的对的？那空瓶子为奇数呢？要写函数或者手搓函数的

cidanji

不规则结构 发表于 2024-9-24 19:52
假如你说的对的？那空瓶子为奇数呢？要写函数或者手搓函数的

哈哈，嗯呢我是猜的，没电脑用函数验证
不愿借的话，n mod 3 = 2 时(n-2)\2，=1或0 时(n-1)\2
愿借的话=n\2

yynrzwh

不知对不对


Sub test()

ar = Range("c2").CurrentRegion
For i = 2 To UBound(ar)
    s = 0
    k = ar(i, 1)
    Do While k >= 3
        a = k \ 3
        k = a + k Mod 3
        s = s + a
    Loop
    ar(i, 2) = IIf(k = 2, s + 1, s)
    ar(i, 3) = s
Next

Range("c2").CurrentRegion = ar
End Sub

gaozengxun

我试一试，大家看看。

779846526

时间的音符 发表于 2024-9-24 21:34
.....................

这位老师我个人认为可以算是本论坛的一位大佬，个人观点，大家不要再喷我哈，我给喷怕了

liulang0808

......................