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

LA

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)

HN
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ự
NV
Xem chi tiết
BB
Xem chi tiết
TC
Xem chi tiết
TH
Xem chi tiết
TH
Xem chi tiết
NT
Xem chi tiết
LL
Xem chi tiết
H24
Xem chi tiết
GL
Xem chi tiết