閏年FreePascal的

Question

輸入 - 年

輸出 - 閏年

我已經試過

Program LeapYear; 

var 
    Year:Integer 

begin 

    writeln('Insert year'); 
    readln(Year) 

    if Year MOD 4 = 0 and Year MOD 100 = 0 and not Year MOD 400 = 0 then 
     begin 
      writeln(Year,'is leap year') 
     end 
    else 
     begin 
      writeln(Year,'is not leap year') 
     end 

end. 

但是，這是行不通的

Answer 1

你的算法是錯誤的。它應該是：

if (year mod 400 = 0) or ((year mod 4 = 0) and not (year mod 100 = 0)) 

Answer 2

的IsLeapYear功能在datih.inc文件中已定義的，因此你不需要編寫你自己的版本，只有你必須添加sysutils單元。