周口通用机场:认为数学好的或懂编程的请进！！！

我也是编程算出来的，只有一种答案
　　就是：5/34 + 7/68 + 9/12 = 1
　　用VB编的，很笨的方法，但是很快，不到1秒出答案
　　Dim A1 As Integer, A2 As Integer, A3 As Integer, A4 As Integer, A5 As Integer
　　Dim A6 As Integer, A7 As Integer, A8 As Integer, A9 As Integer
　　Dim I As Long
　　Dim X(1 To 9) As Boolean
　　Dim S As String

　　Private Sub Form_Load()
　　For A1 = 1 To 9
　　For I = 1 To 9
　　X(I) = False
　　Next
　　X(A1) = True
　　For A2 = 1 To 9
　　If Not X(A2) Then
　　X(A2) = True
　　For A3 = 1 To 9
　　If Not X(A3) Then
　　X(A3) = True
　　For A4 = 1 To 9
　　If Not X(A4) Then
　　X(A4) = True
　　For A5 = 1 To 9
　　If Not X(A5) Then
　　X(A5) = True
　　For A6 = 1 To 9
　　If Not X(A6) Then
　　X(A6) = True
　　For A7 = 1 To 9
　　If Not X(A7) Then
　　X(A7) = True
　　For A8 = 1 To 9
　　If Not X(A8) Then
　　X(A8) = True
　　For A9 = 1 To 9
　　If Not X(A9) Then
　　If A1 / (A2 * 10 + A3) + A4 / (A5 * 10 + A6) + A7 / (A8 * 10 + A9) = 1 Then List1.AddItem A1 & A2 & A3 & A4 & A5 & A6 & A7 & A8 & A9
　　End If
　　Next
　　X(A8) = False
　　End If
　　Next
　　X(A7) = False
　　End If
　　Next
　　X(A6) = False
　　End If
　　Next
　　X(A5) = False
　　End If
　　Next
　　X(A4) = False
　　End If
　　Next
　　X(A3) = False
　　End If
　　Next
　　X(A2) = False
　　End If
　　Next
　　X(A1) = False
　　Next
　　End Sub

1/2+1/3+1/6=1 1/2+1/4+1/4=1 1/2+1/5+3/10=1
1/2+1/7+5/14=1 1/2+2/7+3/14=1 1/2+3/7+1/14=1
1/2+1/8+3/8=1 1/2+1/9+7/18=1 1/2+2/9+5/18=1

1/3+1/3+1/3=1 1/3+1/4+5/12=1 1/3+1/5+7/15=1
1/3+1/7+11/21=1 1/3+2/7+8/21=1 1/3+3/7+6/21=1
1/3+4/7+2/21=1 1/3+1/8+13/24=1 1/3+3/8+7/24=1
1/3+5/8+1/24=1 1/3+1/9+5/9=1 1/3+2/9+4/9=1

2/3+1/6+1/6=1 2/3+1/4+1/12=1 2/3+1/9+2/9=1

7/12+1/4+1/6=1 7/12+1/7+？
7/12+5/36+？
9/12+5/36+？

7/13+5/26+9/48
傻了

恩，有点意思。
编程很简单，几秒钟就能出来。
因为可能的组合比较少，只有9！/3！，即60480种组合，然后一一验证即可得出结论。
不过编程是没有办法的办法，笔算才能锻炼思维，让我笔算看看。

做了好久都没有答案，但是有一点可以证明，其中一个分母必定是十几。

有难度，编程的话分母上的怎么处理得好好想想

做了好久，相差1/20
9/18
7/35
6/24

10/20+4/20+5/20=19/20