pascal - 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ユニットを追加するだけで済みます。

Answer 3

それが役に立てば幸い：

if((a MOD 4) = 0) and ((a MOD 100) = 0) and ((a MOD 400) = 0) then y:=true 
else y:=false;

Answer 4

Program LeapYear;

Uses crt;

var

Year:Integer;

 begin

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

if (Year MOD 4 = 0)then 
  writeln(Year,'is leap year');
If (Year Mod 4 >=1 ) Then 
  writeln(Year,'is not leap year')

終わり。