Viết lập trinh nhập số a từ bàn phím sau đó kiểm tra số vừa nhập là số chẵn hay số lẻ

1 câu trả lời

Program BTT;
Uses crt;
Var a: longint;
Begin
        Clrscr;
        Write('Nhap a: '); Readln(a);
        If a mod 2 = 0 then Write('So chan')
        Else Write('So le');
        Readln
End.