發表新討論
#8792: WA(line:11)(测试没问题)


none2013 (天际生云)

學校 : 上海市七宝中学
編號 : 38622
來源 : [101.90.254.50]
最後登入時間 ：
2018-11-11 20:10:06
a149. 乘乘樂
| From: [222.64.215.182] | 發表日期: 2014-05-03 14:30
var
  i,t,n,s:longint;
begin
  readln(t);
  for i:=1 to t do begin
    readln(n);
    s:=1;
    while n<>0 do begin
      s:=s*(n mod 10);
      n:=n div 10;
    end;
    writeln(s);
  end;
end.

#8794: Re:WA(line:11)(测试没问题)


silithus (希利蘇斯)

學校 : 澳門培道中學
編號 : 33314
來源 : [60.246.116.246]
最後登入時間 ：
2023-09-19 17:00:10
a149. 乘乘樂
| From: [60.246.194.163] | 發表日期: 2014-05-03 22:25
var
  i,t,n,s:longint;
begin
  readln(t);
  for i:=1 to t do begin
    readln(n);
    s:=1;
    while n<>0 do begin
      s:=s*(n mod 10);
      n:=n div 10;
    end;
    writeln(s);
  end;
end.


WA估計是因為當n=0時，答案輸出1。

 

ZeroJudge Forum