Nhập vào 1 số nguyên N Cho biết N là năm nhuận hay năm không nhuận ( Pascal)

0 bình luận về “Nhập vào 1 số nguyên N Cho biết N là năm nhuận hay năm không nhuận ( Pascal)”

1. program kiemtra;

   uses crt;

   var n:longint;

   begin

           clrscr;

           write(‘Nhap nam: ‘);  readln(n);

           if ((n mod 4=0) and (n mod 100<>0)) or (n mod 400=0) then 

                   write(‘Nam ‘,n,’ la nam nhuan’)

           else write(‘Nam ‘,n,’ khong phai nam nhuan’);

           readln;

   end.

   Bình luận