#2624: PASCAL的,怎么WA了


exiapegasus (≯飞翔∽天马≮)

學校 : 飞厦中学
編號 : 9023
來源 : [61.141.0.212]
最後登入時間 :
2012-09-13 20:48:49
a004. 文文的求婚 | From: [116.26.131.163] | 發表日期 : 2009-11-08 20:05

var

  a,b:longint;

begin

  read(a);

  b:=a mod 4;

  if b=0 then write('闰年') else

  begin

     b:=a mod 400;

     if b=0 then write('闰年') else write(平年');

end;

end.

 
ZeroJudge Forum