[0715]JSOI Test digit

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.

转载于:https://www.cnblogs.com/shy-/archive/2012/07/16/2593247.html