✔ 最佳答案
這題 麻辣 知識長已解過,他的解 141 是正確的.
我想應該是你的問題陳述方式有誤,所以你又再提問.
你應該把"個數"去掉,所以應該這麼問:
所有整數解為何?
Sol:
要列出所有的141組解,已經不太像是數學問題了,
以下用 Excel VBA 列出所有解,程式碼如下:
Sub my_sol()
y = 1
x = 1
For a = 1 To 5
For b = 1 To 8
For c = 3 To 8
For d = 2 To 7
If a + b + c + d = 19 Then
Cells(y, x) = a & "," & b & "," & c & "," & d
If y = 25 Then
y = 1
x = x + 1
Else
y = y + 1
End If
End If
Next
Next
Next
Next
End Sub
執行結果: (按照a,b,c,d的順序排列)
1,3,8,7 2,4,7,6 3,3,6,7 3,8,5,3 4,6,6,3 5,4,7,3 1,4,7,7 2,4,8,5 3,3,7,6 3,8,6,2 4,6,7,2 5,4,8,2 1,4,8,6 2,5,5,7 3,3,8,5 4,1,7,7 4,7,3,5 5,5,3,6 1,5,6,7 2,5,6,6 3,4,5,7 4,1,8,6 4,7,4,4 5,5,4,5 1,5,7,6 2,5,7,5 3,4,6,6 4,2,6,7 4,7,5,3 5,5,5,4 1,5,8,5 2,5,8,4 3,4,7,5 4,2,7,6 4,7,6,2 5,5,6,3 1,6,5,7 2,6,4,7 3,4,8,4 4,2,8,5 4,8,3,4 5,5,7,2 1,6,6,6 2,6,5,6 3,5,4,7 4,3,5,7 4,8,4,3 5,6,3,5 1,6,7,5 2,6,6,5 3,5,5,6 4,3,6,6 4,8,5,2 5,6,4,4 1,6,8,4 2,6,7,4 3,5,6,5 4,3,7,5 5,1,6,7 5,6,5,3 1,7,4,7 2,6,8,3 3,5,7,4 4,3,8,4 5,1,7,6 5,6,6,2 1,7,5,6 2,7,3,7 3,5,8,3 4,4,4,7 5,1,8,5 5,7,3,4 1,7,6,5 2,7,4,6 3,6,3,7 4,4,5,6 5,2,5,7 5,7,4,3 1,7,7,4 2,7,5,5 3,6,4,6 4,4,6,5 5,2,6,6 5,7,5,2 1,7,8,3 2,7,6,4 3,6,5,5 4,4,7,4 5,2,7,5 5,8,3,3 1,8,3,7 2,7,7,3 3,6,6,4 4,4,8,3 5,2,8,4 5,8,4,2 1,8,4,6 2,7,8,2 3,6,7,3 4,5,3,7 5,3,4,7 1,8,5,5 2,8,3,6 3,6,8,2 4,5,4,6 5,3,5,6 1,8,6,4 2,8,4,5 3,7,3,6 4,5,5,5 5,3,6,5 1,8,7,3 2,8,5,4 3,7,4,5 4,5,6,4 5,3,7,4 1,8,8,2 2,8,6,3 3,7,5,4 4,5,7,3 5,3,8,3 2,2,8,7 2,8,7,2 3,7,6,3 4,5,8,2 5,4,3,7 2,3,7,7 3,1,8,7 3,7,7,2 4,6,3,6 5,4,4,6 2,3,8,6 3,2,7,7 3,8,3,5 4,6,4,5 5,4,5,5 2,4,6,7 3,2,8,6 3,8,4,4 4,6,5,4 5,4,6,4