program KT_chan_le;
uses crt;
var n: integer;
begin
clrscr;
write ('nhap n: '); readln (n); {nhập giá trị cho n}
if n mod 2=0 then writeln ('day la so chan'); {nếu n chia hết cho 2 thì n là số chẵn,đây là phép chia lấy phần dư nếu chia hết thì ko dư}
if n mod 2<>0 then writeln ('day la so le'); {còn lại nếu n ko chia hết cho 2 thì số dư sẽ khác 0 thì là số lẻ}
readln;
end.
chúc bạn thi tốt !!!
mấy dòng in đậm mình chỉ dùng để giải thích thôi nghe !!!!
