viết chương trình kiểm tra 1 số nguyên a được nhập vào từ bàn phím là số chẵn hay số lẻ
2 câu trả lời
// Viết bằng pascal
uses crt;
var a:longint;
begin
clrscr;
write('Nhap a= ');
readln(a);
if a mod 2 = 1 then write(a,' la so le')
else write(a, ' la so chan');
readln;
end.
uses crt;
var n:longint;
begin
clrscr;
write('Nhap n: '); readln(n);
if n mod 2=0 then write('La so chan') else write('La so le');
readln
end.