×
解除綁定，重新設定系統帳號的密碼
您的系統帳號 ID：
您的系統帳號：
您的帳號暱稱：
設定新密碼：
設定新密碼：
×
請輸入要加入的「課程代碼」
請向開設課程的使用者索取「課程代碼」
分類題庫
解題動態
排行榜
討論區
競賽區
登入
註冊
發表新討論
#5108: _WHY
jkljk6
(钱猪肉)
學校 : 上海市娄山中学
編號 : 18746
×
傳送站內訊息
傳給：
主題：
內容：
來源 : [180.158.73.157]
最後登入時間 ：
2016-06-27 22:40:08
d124.
3的倍数
| From: [61.170.207.63] | 發表日期: 2011-05-10 19:04
var i:string;
a,j,k:longint;
begin
while not eof do begin
readln(i);
k:=length(i);
for j:= 1 to k do begin
a:=a+ord(i[j])-48;
end;
if a mod 3=0 then writeln('yes')
else writeln('no');
end;
end.