Help em bài tập pascal này

[Stone90]

Tính số ngày chủ nhật trong năm 2009, biết ngày 1/1/2009 là ngày thứ 5, ai giúp em bài này với

[lehang_gb1]

Năm 2009 là không là năm nhuận (vì 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) vậy có 365 ngày.
Số tuần trong năm là 365 div 7= 52 tuần và dư 1 ngày.
Vậy có tất cả là 52 ngày chủ nhật

[tdplaza]

Năm 2009 là không là năm nhuận (vì 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) vậy có 365 ngày.
Số tuần trong năm là 365 div 7= 52 tuần và dư 1 ngày.
Vậy có tất cả là 52 ngày chủ nhật

ủa??? vậy năm 2000 không phải nhuận à???? tớ tưởng nó nhuận mờ :-?

[zeldery]

Gì vậy, năm 2000 chia hết cho 400 thì nó nhuận mất rồi =.=

[tdplaza]

(vì 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)

thế thì sao không nói là chia hết cho 4 cho nó gọn, cho cái 400 vô đây làm gì thía???

[lehang_gb1]

Bạn có thể tham khảo SGK Tin học lớp 11
SGK có nói như thế này: 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. Ví dụ các năm 2000,2004 là năm nhuận và có số ngày là 366, các năm 1900, 1945 không phải là năm nhuận và có số ngày là 365.
if (N mod 400=0) or ((N mod 4) and ( N mod 100<>0)) then songay:=366 else songay:=365; Các bạn hiểu chưa đừng nhẫm lẫn nhé

[tdplaza]

uh uh hiểu rồi. hồi mình đi học 11 thì không có môn nào có cái tên mỹ miều là tin học cả :-s còn các thầy cô tiểu học chỉ nói rằng 4 năm nhuận 1 lần. khổ thế đấy. giờ thì hiểu rồi. cảm ơn