方法一：

AC (0ms, 216KB)

 var

  a,i,s,z:longint;

begin

  while not eof do begin

   readln(s);

   for i:=1 to s do begin

    readln(a);

    if a=0 then writeln('0')

           else begin

     z:=1;

     while a>0 do begin

      z:=z*(a mod 10);

      a:=a div 10;

     end;

     writeln(z);

    end;

   end;

  end;

end.

方法二：

 AC (0ms, 224KB)

 var

  a:string;

  b,c,i,j,s:longint;

begin

  while not eof do begin

   readln(s);

   for j:=1 to s do begin

    c:=1;

    readln(a);

    b:=length(a);

    for i:=1 to b do c:=c*(ord(a[i])-48);

    writeln(c);

   end;

  end;

end.