Viết chương trình nhập vào một số, kiểm tra xem nó là số lẻ hay số chẵn
Program so_chan_le;
Uses crt;
Var n:Integer;
Begin
clrscr;
Write('Moi ban nhap mot so bat ki: ');
Readln(n);
If n mod 2 = 0 then writeln('Day la so chan') else writeln('Day la so le');
Readln;
End.
Hình ảnh:
