×
解除綁定,重新設定系統帳號的密碼
您的系統帳號 ID:
您的系統帳號:
您的帳號暱稱:
設定新密碼:
設定新密碼:
×
請輸入要加入的「課程代碼」
請向開設課程的使用者索取「課程代碼」
分類題庫
解題動態
排行榜
討論區
競賽區
登入
註冊
發表新討論
#9345:
andrewhoi
(Joker)
學校 : 澳門濠江中學
編號 : 39002
×
傳送站內訊息
傳給:
主題:
內容:
來源 : [180.94.161.88]
最後登入時間 :
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.
ZeroJudge Forum