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.

49/117

Hướng dẫn

- năm nhuận là năm có 366 ngày , ngược lại thì có 365 ngày

- năm nhuận là năm chia hết cho 400 hoặc chia hết cho 4 nhưng không chia hết cho 100.Sử dụng phép tính Mod để kiểm tra .Sử dụng lệnh If...Then để tìm số ngày

Nhập câu trả lời ở đây

0/3000 ký tự

Giải thích

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.