Question

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

Answer 1

uses crt;

var n:integer;

begin

clrscr;

write('Nhap nam: ');readln(n);

if (n mod 400 =0) or (n mod 4=0) and (n mod 100<>0) then

write('Nam ',n,' la nam nhuan va co so ngay la:',366) else

write('Nam ',n,' khong phai la nam nhuan va co so ngay la:',365);

readln;

end.

Answer 2

chia hết cho 400 thì nó đã chia hết cho 4 và 100 rồi bạn

vì 4 và 100 là ước của 400