所有数字之和为5三位数有多少个?请编程

网友回答

.版本 2.程序集 窗口程序集1
.程序集变量 所有组合数, 文本型
.子程序 __启动窗口_创建完毕
求数字之和等于5的三位数个数 ()
.子程序 求数字之和等于某数的三位数个数, 整数型
.参数 和数, 整数型, , 数字之和,如5
.局部变量 百位数字, 整数型
.局部变量 十位数字
.局部变量 总个数, 整数型
' 如数和数为5,则百位数字只能是1－5中的一个
.变量循环首 (1, 和数, 1, 百位数字)
' 百位数字确定后十位数字只能是小于等于“和数 － 百位数字”,即只有“和数 － 百位数字 ＋ 1”种选择,这时个位数字也就确定下来了,即个位数字＝和数－百位数字
总个数 ＝ 总个数 ＋ 和数 － 百位数字 ＋ 1
.变量循环首 (0, 和数 － 百位数字, 1, 十位数字)
所有组合数 ＝ 所有组合数 ＋ #换行符 ＋ 到文本 (百位数字) ＋ 到文本 (十位数字) ＋ 到文本 (和数 － 百位数字 － 十位数字)
.变量循环尾 ()
.变量循环尾 ()
返回 (总个数)
.子程序 求数字之和等于5的三位数个数
所有组合数 ＝ “”
信息框 (“数字之和等于5的三位数个数有” ＋ 到文本 (求数字之和等于某数的三位数个数 (5)) ＋ “个,它们是：” ＋ 所有组合数, 0, )
'以上是易语言的写法,你可以复制到易语言窗口模块测试,得到的结果如下：
'数字之和等于5的三位数个数有15个,它们是：
'104'113'122'131'140'203'212'221'230'302'311'320'401'410'500