Lập trình đơn giản

Lê Vân Anh

Tìm số ngày của năm N, biết rằng 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.

Vd: năm 2000, 2004 là năm nhuận và có số ngày là 366

Năm 1900, 1945 không phải là năm nhuận và có số ngày là 365

(Lập pascal)

Hakita Nguyen
14 tháng 2 2020 lúc 18:59

var n:longint;
begin
readln(n);
if (n mod 400 = 0) or (n mod 4 = 0) and (n mod 100 <> 0)
then write('Nam ',n,' co 366 ngay')
else write('Nam ',n,' co 365 ngay');
end.

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
nguyễn ngọc thúy vi
Xem chi tiết
Big City Boy
Xem chi tiết
Trần Đình Lê Chiến
Xem chi tiết
Tran Dinh Quy (APTECH HN...
Xem chi tiết
Tạ Quang Huy
Xem chi tiết
Người Bình Thường
Xem chi tiết
lmao lmao lmao
Xem chi tiết
doivanthe
Xem chi tiết
Good look_Good like
Xem chi tiết