Viết chương trình nhập vào 1 số nguyên N từ bàn phím, cho biết số nhập vào từ bàn phím là số chẵn hay số lẻ? (Dùng if....then....else) * Gợi ý: nếu MOD 2=0 thì đó là chẵn ngược lại đó là số lẻ?

2 câu trả lời

uses crt;

var n : integer;

begin

clrscr;

write('nhap so n : ');readln(n);

if n mod 2 = 0 then writeln(n,' la so chan')

else writeln(n,' la so le');

readln

end.

Program baitap;

Uses crt;

Var N:integer;

Begin

Clrscr;

Write('N='); Readln(N);

If N mod 2=0 then writeln('N la so chan')

                       Else writeln('N la so le');

Readln

End.