求一道pascal题的解2.立方和（文件名：cubsum.pas） 现给出一个三位数,先对这个三位数的各位数字的立方求和,然后再对求出的和中的各位数字的立方求和,如此一直继续下去,判断最后能否得到
来源：学生作业帮助网 编辑：六六作业网 时间：2024/12/26 13:22:33
求一道pascal题的解2.立方和（文件名：cubsum.pas） 现给出一个三位数,先对这个三位数的各位数字的立方求和,然后再对求出的和中的各位数字的立方求和,如此一直继续下去,判断最后能否得到
求一道pascal题的解
2.立方和（文件名：cubsum.pas）
现给出一个三位数,先对这个三位数的各位数字的立方求和,然后再对求出的和中
的各位数字的立方求和,
如此一直继续下去,
判断最后能否得到一个不再变化的固定值.
如能得到一个固定值,就求出这个固定值；如果不能,则输出提示信息“error”.另外
请注意,若某一次求和过程中得到的值超过三位数,则取该数的低三位
继续往下运算…… 例如,对于三位数111,则第一次计算应是1×1×1+1×1×1+1×1×1=3,第二次计算应是0*0×0+0×0×0+3×3×3=27,第三次计算应是0×0×0+2×2×2+7×7×7=351,第四次计算应是3×3×3+5×5×5+1×1×1=153,第五次计算应是1×1×1+5×5×5+3*3*3=153,与第四次计算的结果相同,这时可不再计算,输出固定值153.
亲爱的同学,请你也来计算一下.
输入文件
cubsum.in,只有一行,是一个三位数.
输出文件
cubsum.out,也只有一行,如能得到一个固定值,则输出这个固定值；如
不能,则输出一个提示信息“error”.
输入样例1：
111
输出样例1：
153
输入样例2：
102
输出样例2：
error
求一道pascal题的解2.立方和（文件名：cubsum.pas） 现给出一个三位数,先对这个三位数的各位数字的立方求和,然后再对求出的和中的各位数字的立方求和,如此一直继续下去,判断最后能否得到
做一个a[0..10,0..10,0..10] 的数组 用来储存1000种不同的三位数的立方和 用链表把有前后关联的项连接起来 也可以用前向星类似的东西 最后以不变的点为头向前找 开个hash坐下标记 就可以了
脑袋想的 可能有错 如需程序