所有数字之和为5三位数有多少个?请编程
来源:学生作业帮助网 编辑:作业帮 时间:2024/11/17 18:48:02
所有数字之和为5三位数有多少个?请编程
所有数字之和为5三位数有多少个?请编程
所有数字之和为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