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

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

这么快。

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

只用 +-*/ 只有 23567 可解

Local $aF[4] = ['+', '-', '*', '/']
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

这没有什么算法，只是依题按部就班而已…

		自动登录	找回密码
密码			加入

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

评分