Năm nhuận là năm chia hết cho 400,hoặc không tròn trăm nhưng chia hết cho 4 Hãy cho biết có bao nhiêu năm nhuận trong khoảng thời gian 1 =>2000 Giúp mk với ạ

- Thuật toán :

+ Bước 1 : dem ← 0, i ← 1

+ Bước 2 : nếu i > 2000 thì đưa ra giá trị dem, kết thúc

+ Bước 3 :

+ Bước 3.1 : nếu (i `\vdots` 400) or ((i  $\not\vdots$  100) and (i  $\vdots$  4)) thì dem ← dem + 1

+ Bước 3.2 : i ← i + 1 quay lại bước 3

Đề có vấn đề một chút nhỉ? Năm nhuận là năm chia hết cho 4, hoặc chia hết cho 400 nhưng không tròn trăm nhé!

---

Program BTT;
Uses crt;
Var i,d: longint;
Begin
        Clrscr;
        d:=0;
        For i:=1 to 2000 do
                If (i mod 4 = 0) or (i mod 100<>0) and (i mod 400 = 0) then inc(d);
        Write('Co ',d,' nam');
        Readln
End.