Nhập vào tháng và năm. Cho biết tháng đó có bao nhiêu ngày. Biết 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 InputOutput 3 201331
Uses crt; Var thang,nam:longint; nhuan:boolean; Begin readln(thang); readln(nam); If (nam mod 400=0)or(nam mod 4=0) then nhuan:=true; Case thang of 1:Write(31); 3:Write(31); 4:Write(30); 5:Write(31); 6:Write(30); 7:Write(31); 8:Write(31); 9:Write(30); 10:Write(31); 11:Write(30); 12:Write(31); end; If (nhuan=true)and(thang=2) then Write(29) else if thang=2 then write(28); readln; end.
Dùng nick gmail để bình luận. Nếu lần đầu tiên bạn làm điều này thì hệ thống sẽ chuyển bạn sang trang blogger và hỏi bạn chọn tên hiển thị là gì. Bạn hãy nhập tên hiển thị rồi ok là được. Những lần bình luận sau hệ thống sẽ không hỏi nữa. Cảm ơn!
Uses crt;
Trả lờiXóaVar thang,nam:longint;
nhuan:boolean;
Begin
readln(thang);
readln(nam);
If (nam mod 400=0)or(nam mod 4=0) then
nhuan:=true;
Case thang of
1:Write(31);
3:Write(31);
4:Write(30);
5:Write(31);
6:Write(30);
7:Write(31);
8:Write(31);
9:Write(30);
10:Write(31);
11:Write(30);
12:Write(31);
end;
If (nhuan=true)and(thang=2) then Write(29) else if thang=2 then write(28);
readln;
end.