论坛 › 趣题妙解 › 年龄为出生年份的数码之和——用mathcad解趣味数学题

mathematica 发表于 2013-10-5 17:15:01

这是我第一次看题目后得到的代码
Clear["Global`*"];(*Clear all variables*)
n=Range;(*出生年份*)
(*挑出那些年龄等于出生年份的数字的和的 出生年份数字*)
Select
我按照我的理解

mathematica 发表于 2013-10-5 17:25:47

Clear["Global`*"];(*Clear all variables*)
n=Range;(*出生年份*)
(*挑出那些年龄等于出生年份的数字的和的 出生年份数字*)
Select==Mod&]
这个代码比你的简单吧,比mathcad简单吧

northwolves 发表于 2013-10-7 10:59:29

设年份为y，

如果 y mod 9为单数，则题目无解。
如果 y mod 9为双数, $ y mod 9=2k$，则通解为 $9d+k$ 。d=

mathematica 发表于 2013-10-7 16:55:12

Select,(2013-#)==Total@IntegerDigits@#&]
一行程序搞定!!!!!!!!!!

mathematica 发表于 2013-10-7 16:56:04

zpz77777 发表于 2011-6-24 06:36
老朽不懂Mathematica，但2楼的答案仅仅是整个一组答案的一个特例，这种问题有无穷多答案，所以原问题才给 ...

Select,(2013-#)==Total@IntegerDigits@#&]

查看完整版本: 年龄为出生年份的数码之和——用mathcad解趣味数学题