Theo truyền thống, các mùa trong năm ở Bắc bán cầu được phân chia như sau:
- Mùa xuân: gồm toàn bộ các tháng Hai, Ba, Tư.
- Mùa hạ: gồm toàn bộ các tháng Năm, Sáu, Bảy.
- Mùa thu: gồm toàn bộ các tháng Tám, Chín, Mười.
- Mùa đông: gồm toàn bộ các tháng Mười một, Mười hai và tháng Giêng.
Yêu cầu: Với một tháng t cho trước (1 <= t <= 12), hãy cho biết tháng đó thuộc mùa nào ở Bắc bán cầu.
Dữ liệu vào: Nhập từ bàn phím giá trị t. Giả thiết dữ liệu được
nhập đúng, không cần kiểm tra.
Kết quả ra: Xuất ra màn hình mùa tương
ứng với tháng t.
Ví dụ:
|
Nhập từ bàn phím |
Xuất ra màn hình |
|
Nhap thang t = 6 |
Mua Ha |
CODE THAM KHẢO:
program Mua_Trong_Nam;
uses crt;
var t:byte;
begin
clrscr;
write('Nhap thang: '); readln(t);
case t of
2..4: write('MUA XUAN');
5..7: write('MUA HA');
8..10: write('MUA THU');
1,11,12: write('MUA DONG')
else write('KHONG CO THANG NAY');
end;
readln;
end.
Đăng nhận xét