本帖最后由 砂海 于 2017-8-30 20:51 编辑
=MAX(IF(4*ROW(1:9999)=(MID(TEXT(ROW(1:9999),"0000"),4,1)*1000+MID(TEXT(ROW(1:9999),"0000"),3,1)*100+MID(TEXT(ROW(1:9999),"0000"),2,1)*10+MID(TEXT(ROW(1:9999),"0000"),1,1)),ROW(1:9999),0))
=========================================================
Sub aa()
Dim i1, i2, i3, i4
For i1 = 0 To 9
For i2 = 0 To 9
For i3 = 0 To 9
For i4 = 0 To 9
If (4 * (i1 * 1000 + i2 * 100 + i3 * 10 + i4)) = (i4 * 1000 + i3 * 100 + i2 * 10 + i1) Then
Debug.Print i1 & i2 & i3 & i4
End If
Next
Next
Next
Next
End Sub
================================
已知 4 * ABCD = DCBA
推断 A的范围 {0,2} , ( 当 A>=3 时 , 乘4倍的数字为5位 ) , ( 当 A=1 , DCBA 为奇数 , 不符符合要求 )
A=0 ,D =0 时 , 由4倍关系同样推断 , B 取值范围 {0,1,2} , 而 B 取值1,2 时 , 4 * ABCD = DCBA 皆不成立
故结果1: A=B=C=D=0
A=2 ,D=8 时 , B 取值范围 {0,1,2} , (若B>=3 , ×4以后会产生进位 )
由于 mod(4*C,10) 必定 为偶数 , 故 B=1 ,
再由 3 + mod(4*C,10) 之和的尾数 = 1 , 推定 mod(4*C,10) =8
乘法口诀 中 , × 4 的尾数 为 8 的数 ,只能是 2 或者 7
排除 C = 2 以后 , 确定C=7 , 要求题目成立 , 故 ABCD = 2178----------------------------------------------------------------------------
PS: 遗漏 排除 D=9 计算过程.
|