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)
2 câu trả lời
program nam_nhuan;
uses crt;
var nam:integer;
begin
clrscr;
write('Nhap nam: ''); readln(nam);
if ((nam mod 4=0) and (nam mod 100<>0)) or (nam mod 400=0)
then write(nam,' la nam nhuan')
else write(nam,' khong la nam nhuan');
readln;
end.