×
解除綁定，重新設定系統帳號的密碼
您的系統帳號 ID：
您的系統帳號：
您的帳號暱稱：
設定新密碼：
設定新密碼：
×
請輸入要加入的「課程代碼」
請向開設課程的使用者索取「課程代碼」
分類題庫
解題動態
排行榜
討論區
競賽區
登入
註冊
發表新討論
#9989: 我用pascal做的，每次都显示“執行錯誤”，可以帮我改改吗？
200135
(兰生复旦贾逸麟)
學校:
上海市娄山中学
編號:
50369
×
傳送站內訊息
傳給：
主題：
內容：
來源:
[101.88.232.179]
註冊時間:
2015-06-27 10:05:39
最後登入時間:
2017-07-26 13:55:02
.
Unfinished!
| From: [140.206.206.21] | 發表日期: 2015-07-05 13:40
var
n:int64;
begin
while not eof do begin
readln(n);
if (n mod 17= 0) then writeln('1')
else writeln('0');
end;
end.