Viết chương trình nhập vào số năm N được nhập từ bàn phím và cho biết năm N vừa nhập

Câu 18: Viết chương trình nhập vào số năm N được nhập từ bàn phím và cho biết năm N vừa nhập là năm nhuận hay năm không nhuận.

Trả lời

Const Fi='LEAPYEAR.INP';
      Fo='LEAPYEAR.OUT';
Var f,g: text;
    n: qword;
Begin
        Assign(f,Fi); Reset(f);
        Assign(g,Fo); Rewrite(g);

        Read(f,n);
        If (n mod 4=0) or (n mod 400=0) and (n mod 100<>0) then Write(g,' 366')
        Else Write(g,' 365');
        Close(f);
        Close(g);
End.