nhập vào từ bàn phím số nguyên a bất kì đưa ra màn hình kết luận số a vừa nhập là số chẵn hay lẻ
2 câu trả lời
var a:longint;
begin
readln(a);
if (a mod 2 = 0) then writeln(a,' la so chan')
else writeln(a,' la so le');
readln;
end.
Program baitap;
Uses crt;
Var a: integer;
Begin
Clrscr;
Write('Nhap so nguyen a:'); Readln(a);
If (a mod 2=0) then writeln(a,' la so chan') else writeln(a,' la so le');
Readln
End.
