Việt chương trình nhập vào từ bàn phím số nguyên dương N bất kỳ thông báo ra màn hình số N là số chẵn hay số lẻ
2 câu trả lời
uses crt;
var n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n mod 2=0 then write(n,' la so chan')
else write(n,' la so le');
readln;
end.
uses crt;
var n: longint;
begin
clrscr;
readln(n);
if n mod 2 = 0 then writeln('Chan') else writeln('Le');
readln;
end.
