發表新討論
#5615: 文文的求婚(PASCAL)


jo821029 (イカロス)

學校 : 臺中市立長億高級中學
編號 : 19843
來源 : [163.17.37.159]
最後登入時間 ：
2011-12-29 12:36:11
a004. 文文的求婚 | From: [220.140.110.28] | 發表日期 : 2011-08-17 19:39

var a,b,c,d,s:integer;
begin
while not eof do begin
readln(a,b,c,d);
s:=(10*c+d) mod 4;
if(s=0)
then writeln('閏年');
if(s=1)
then writeln('平年');
if(s=2)
then writeln('平年');
if(s=3)
then writeln('平年');
end;
end.

這樣WA

請問哪裡出了問題呢?

 
#5618: Re:文文的求婚(PASCAL)


leopan0922 (zz)

學校 : 臺北市立成功高級中學
編號 : 6612
來源 : [140.113.225.106]
最後登入時間 ：
2016-08-15 15:44:07
a004. 文文的求婚 | From: [219.71.244.39] | 發表日期 : 2011-08-17 21:57

var a,b,c,d,s:integer;
begin
while not eof do begin
readln(a,b,c,d);
s:=(10*c+d) mod 4;
if(s=0)
then writeln('閏年');
if(s=1)
then writeln('平年');
if(s=2)
then writeln('平年');
if(s=3)
then writeln('平年');
end;
end.

這樣WA

請問哪裡出了問題呢?


請看下方閏年定義 
ZeroJudge Forum