×
解除綁定，重新設定系統帳號的密碼
您的系統帳號 ID：
您的系統帳號：
您的帳號暱稱：
設定新密碼：
設定新密碼：
×
請輸入要加入的「課程代碼」
請向開設課程的使用者索取「課程代碼」
分類題庫
解題動態
排行榜
討論區
競賽區
登入
註冊
發表新討論
#8792: WA(line:11)(测试没问题)
none2013
(天际生云)
學校:
上海市七宝中学
編號:
38622
×
傳送站內訊息
傳給：
主題：
內容：
來源:
[101.90.254.50]
註冊時間:
2014-01-10 14:55:42
最後登入時間:
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]
註冊時間:
2013-06-23 02:57:33
最後登入時間:
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。