Viết chương trình thực hiện công việc sau:
Nhập vào 1 tháng trong năm (1-12). Cho biết tháng đó thuộc mùa nào trong năm (Xuân,Hạ,Thu,Đông)
Viết chương trình thực hiện công việc sau:
Nhập vào 1 tháng trong năm (1-12). Cho biết tháng đó thuộc mùa nào trong năm (Xuân,Hạ,Thu,Đông)
Đây
Program BTT;
Uses crt;
Var a: 1..12;
Begin
Clrscr;
Write(‘Nhap thang: ‘); Readln(a);
If (a>=1) and (a<4) then Write(‘Mua Xuan’);
If (a>=4) and (a<7) then Write(‘Mua Ha’);
If (a>=7) and (a<10) then Write(‘Mua Thu’);
If (a>=10) and (a<13) then Write(‘Mua Dong’);
Readln
End.