我国古代数学家张丘建在他的《算经》中提出了著名的“百钱买百鸡问题”:鸡翁一,值钱五,鸡母一,值钱三,鸡雏三,值钱一,
百钱买百鸡,问翁、母、雏各几何?
Module Module1
Sub Main()
Dim x, y, z As Integer
Dim result As String = ""
For x = 0 To 20
For y = 0 To 33
z = 100 - x - y
If (x + y + z = 100) And (x * 5 + y * 3 + z / 3 = 100) Then
result = result & "公鸡:" & x & ",母鸡:" & y & ",小鸡:" & z & vbNewLine
End If
Next
Next
Console.WriteLine(result)
Console.ReadLine()
End Sub
End Module