Ý tưởng:
- Nhập 1 số nguyên nhập từ bàn phím.
- Nếu số vừa nhập chia 2 dư 0 thì xuất ra màn hình số đó là số chẵn, nếu không giống như ĐK trên thì xuất ra màn hình số đó là số lẻ.
CT:
uses crt;
var n:longint;
{---Ham-kiem-tra---}
function chanle(n:longint):boolean;
begin
if n mod 2=0 then begin chanle:=true; write(n,' la so chan'); end
else begin chanle:=false; write(n,' la so le'); end;
end;
{---Chuong-trinh-chinh---}
BEGIN
clrscr;
write('Nhap n: '); readln(n);
chanle(n);
readln;
END.
