`⇒`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à 366

program hotboy;

uses crt;

n:integer;

begin

clrscr;

if n mod 4000=0 or n mod 4=0 and n mod 100<>0 then writeln(n,'la nam nhuan va co 366 ngay')

else writeln(n,'khong phai la nam nhuan va co 365 ngay');

readln

end.

$\text{@QuânMasTer2}$

$\text{Xin hay nhất}$

$\text{#Warriors of victory}$

program so_ngay;
uses crt;
var N:longint;
begin
    clrscr;
    write('Nhap nam N: ');  readln(n);
    if (n mod 400=0) or ((n mod 4=0) and (n mod 100<>0)) then write('366 ngay')
        else write('365 ngay');
    readln;
end.

n mod 400=0 là chia hết cho 400

(n mod 4=0) and (n mod 100<>0) là chia hết cho 4 và không chia hết cho 100

Chỉ cần một trong 2 trường hợp đúng (or) thì là 366 ngày, nếu cả 2 đều sai thì 365 ngày