Viết chương trình kiểm tra số nguyên N được nhập từ bàn phím là số lẻ hay số chẵn.

Question

haianh · Answer

program BT;

uses crt;

var N: integer;

Begin

clrscr;

write(‘Nhap N: ‘); readln(N);

if N mod 2<>0 then write(N,’ la so le’)

else write(N,’ la so chan’);

readln

End.

haiyen · Answer

program chan_le;

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.