立方数 - pascal吧

level 1

pascalwtq2002 楼主

现给出一个三位数，先对这个三位数的各位数字的立方求和，然后再对求出的和中的各个数字的立方求和，如此继续下去，判断最后能否得到一个不再变化的固定值，如能得到一个固定值，就求出这个固定值；如果不能，则输出提示信息“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.
跪求答案

2014年01月26日 04点01分 1

level 13

Fallen_Breath

var i,n,m:longint;
function x(n:longint):longint;
begin
exit(n*n*n);
end;
begin
i:=0;
readln(n);
repeat
inc(i);
m:=n;
n:=x(n div 100)+x((n div 10) mod 10)+x(n mod 10);
until (n=m) or (i=999);
if n=m then writeln(n)
else writeln('error');
end.
可能有错

2014年01月26日 15点01分 2