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)

2 câu trả lời

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.

Câu hỏi trong lớp Xem thêm