【程序园侦探社003】：如何知道这些孩子的年龄？

2024-01-15 07:54

【程序园侦探社】第三期<程序园教程网><程序园教程网><程序园教程网><程序园教程网><程序园教程网><程序园教程网><程序园教程网><程序园教程网><程序园教程网> 以下是两个数学家的交谈<程序园教程网><程序园教程网><程序园教程网><程序园教程网><程序园教程网><程序园教程网><程序园教程网><程序园教程网> 王教授：“老李你有三个儿子，多大了？”<程序园教程网><程序园教程网><程序园教程网><程序园教程网><程序园教程网><程序园教程网><程序园教程网><程序园教程网> 李教授：“这几个兔崽子的年龄“相乘”是36，“和”恰是今天的日期。（日期并没透露）” <程序园教程网><程序园教程网><程序园教程网><程序园教程网><程序园教程网><程序园教程网><程序园教程网><程序园教程网> 王教授：“对不起，老李，你并没有告诉我你儿子们的年龄。” <程序园教程网><程序园教程网><程序园教程网><程序园教程网><程序园教程网><程序园教程网><程序园教程网><程序园教程网> 李教授：“还有只有我最小的儿子头发是红色的。” <程序园教程网><程序园教程网><程序园教程网><程序园教程网><程序园教程网><程序园教程网><程序园教程网><程序园教程网><程序园教程网><程序园教程网><程序园教程网><程序园教程网> 各位侦探，怎么知道这几个孩子的年龄呢？<程序园教程网><程序园教

1个回答

2024-01-15 08:40

　　技术宅从不做扳着指头数数的傻事。随手打开excel编程如下：

　　Sub Macro1()

　　i = 0

　　For child1 = 1 To 31

　　For child2 = 1 To child1

　　For child3 = 1 To child2

　　If child1 * child2 * child3 = 36 Then

　　i = i + 1

　　Sheets(1).Cells(i, 1) = child1

　　Sheets(1).Cells(i, 2) = child2

　　Sheets(1).Cells(i, 3) = child3

　　End If

　　Next

　　Next

　　Next

　　End Sub

　　结果如下：

　　4 3 3 10

　　6 3 2 11

　　6 6 1 13

　　9 2 2 13

　　9 4 1 14

　　12 3 1 16

　　18 2 1 21

　　我的答案是

　　6、6、1和9、2、2都有可能。

　　不要说两个儿子同岁就一般大，双胞胎也分哥哥弟弟的。