digit
时间限制:1秒 内存限制: 64 MB
试题描述
JSOI2012夏令营开始了!
报到的时间很长很无聊,于是,大家聚在一起玩一个数字接力游戏。游戏是这样的:任何一个人先报一个整数(据说,是报到处会计让某个学校交的费用~),比如6593,然后下一个人做这样一个工作:将这个整数中的各位数字全部取出,再将他们相乘得到一个新的整数,上面的例子就是6*5*9*3=810,然后立刻报出来。下一个人继续这样的工作,先取出810中的每一个数字再相乘,得到:8*1*0=0。得到了一个个位数,这儿是0,游戏就结束了。
对于我们这些学习编程的同学来说,我们很快想到了用计算机编程模拟这一过程。
你行吗?不行就只能上C层次了:)
输入要求
有多组测试数据(小于等于10组),以一个0表示结束。
每组数据为一个整数n(10 <= n <= 2000000000)。
输出要求
对于每组输入数据,输出一行,为按顺序输出游戏过程中产生的每一个数直到一个个位数结束。
输入样例
10
98886
0
输出样例
10 0
98886 27648 2688 768 336 54 20 0
Var n:string;
ans:qword;
i,j:longint;
bo:boolean;
begin
readln(n);
while (n<>'0') do
begin
write(n);
while (n<>'0') do
begin
bo:=false;
ans:=1;
for i:=1 to length(n)do ans:=ans*(ord(n[i])-48);
str(ans,n);
if (ans<10) and (ans<>0)then
begin
writeln(' ',ans);
bo:=true;
break;
end;
if (n<>'0') then write(' ',n);
end;
if not bo then writeln(' ',0);
readln(n);
end;
end.