1. 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 có phải là số chẵn hay không ( Dùng If...Then...Else ) ( Gợi ý : nếu a MOD 2 = 0 thì đó là số chẵn ngược lại đó là số lẻ) 2. 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 có là số lẻ hay không ( Dùng If...Then...Else )

Vì 2 đề trên đều giống nhau nên mình gộp thành 1 chương trình nha

_______________________________________________

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.

Bài 1

program CT;

use crt;

var a : integer;

Begin

 write('nhap a');

Readln(N);

If a MOD 2=0 then writeln('do la so chan')else writeln ('do la so le');

Readln

End.

Bài 2 

program FA;

uses crt;

var b:integer;

Begin

write('nhap b');

readln(b);

If b MOD 3 =1 then writeln('do la so le') else writeln('do laf so chan');

Readln

End.