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.

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: