×
解除綁定，重新設定系統帳號的密碼
您的系統帳號 ID：
您的系統帳號：
您的帳號暱稱：
設定新密碼：
設定新密碼：
×
請輸入要加入的「課程代碼」
請向開設課程的使用者索取「課程代碼」
分類題庫
解題動態
排行榜
討論區
競賽區
登入
註冊
發表新討論
#9345: ___d
andrewhoi
(Joker)
學校:
澳門濠江中學
編號:
39002
×
傳送站內訊息
傳給：
主題：
內容：
來源:
[180.94.161.88]
註冊時間:
2014-02-11 17:20:26
最後登入時間:
2020-05-05 21:30:15
a004.
文文的求婚
| From: [202.86.136.162, 192.168.2.112] | 發表日期: 2014-10-22 10:30
var y:integer;
begin
while not eof do begin
readln(y);
if ((y mod 4=0) and (y mod 100 <>0)) or (y mod 400=0)
then writeln('閏年')
else writeln('平年');
end;
end.