008百钱买百鸡

我国古代数学家张丘建在他的《算经》中提出了著名的“百钱买百鸡问题”：鸡翁一，值钱五，鸡母一，值钱三，鸡雏三，值钱一，

百钱买百鸡，问翁、母、雏各几何？

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