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

mathematica

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

mathematica

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

northwolves

设年份为y，

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

mathematica

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

mathematica

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

Select[Range[1900,2011],(2013-#)==Total@IntegerDigits@#&]