Năm nhuận là năm có 366 ngày và tháng 2 năm đó có 29 ngày. Ta có cách xác định năm nhuận như sau: năm nhuận là năm chia hết cho 400 hoặc không tròn trăm nhưng chia hết cho 4. Viết chương trình nhập vào một năm bất kì, cho biết đó có phải năm nhuận không ?
Input Output
2012 True
2010 false
2100 False
2000 true
Input Output
2012 True
2010 false
2100 False
2000 true
Uses crt;
Trả lờiXóaVar nam:longint;
nhuan:boolean;
Begin
readln(nam);
If (nam mod 400=0)or(nam mod 4=0) then
nhuan:=true;
If (nhuan=true) then Write('YES') else Write('NO');
readln;
end.