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 ạ
2 câu trả lờ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.
Câu hỏi trong lớp
Xem thêm
