Nhập vào 1 số nguyên gồm 4 chữ số kiểm tra tính chẳn lẽ của số đó
2 câu trả lời
Uses crt;
Var t: integer;
Begin
Clrscr;
Write('Nhap t = '); readln(t);
If t mod 2 <> 0 then writeln(t,' la so le')
Else writeln(t,' la so chan');
Readln
End.
Câu hỏi trong lớp
Xem thêm
