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.