heroxianf 发表于 2017-5-20 16:58:28

看到一个很有意思的动脑筋题，大家一起来做做

下面数字之间填上运算符使其最终值等于 6 。可以使用 根号 等什么的符号，不能增加数字。

1   1   1 = 6
2   2   2 = 6
3   3   3 = 6
4   4   4 = 6
5   5   5 = 6
6   6   6 = 6
7   7   7 = 6
8   8   8 = 6

xzf680 发表于 2017-5-20 19:05:56

（1+1+1）！=6
2+2+2=6
3*3-3=6
√4+√4+√4=6
5+5/5=6
6+6-6=6
7-7/7=6
8-√（√（8+8））=6
赠送一道 9 9 9 = 6
√9*√9-√9=6

邪恶海盗 发表于 2017-5-21 11:47:23

回复 2# xzf680


    你这么牛X,你妈妈知道么?

1361739590 发表于 2017-5-23 17:04:57

这么快。{:face (130):}

afan 发表于 2017-5-24 14:32:46

只用 +-*/ 只有 23567 可解
Local $aF = ['+', '-', '*', '/']
Local $sTest = '', $ss = ''
For $ii = 1 To 9
        $ss = _Js($ii, $aF)
        If Not @error Then $sTest &= $ss & ' = 6' & @LF
Next
MsgBox(0, '', $sTest)

Func _Js($sNum, $aF)
        Local $sNumS = $sNum, $sNumB
        For $ii = 0 To 3
                $sJSS = $sNumS & $aF[$ii] & $sNumS
                $sNumB = $sJSS
                For $jj = 0 To 3
                        $sJSS = $sNumB & $aF[$jj] & $sNumS
                        If Execute($sJSS) = 6 Then Return $sJSS
                Next
        Next
        Return SetError(1)
EndFunc   ;==>_Js

heroxianf 发表于 2017-5-24 17:14:19

回复 5# afan

A大，这就是他们经常说的算法？

afan 发表于 2017-5-24 17:24:59

回复 6# heroxianf


    这没有什么算法，只是依题按部就班而已… {:face (303):}
页: [1]
查看完整版本: 看到一个很有意思的动脑筋题，大家一起来做做