* Mô tả thuật toán :

- Bước 1 : nhập số tự nhiên n

- Bước 2 :

- Bước 2.1 : nếu n mod 2 = 0 thì n là số chẵn

- Bước 2.2 : ngược lại thì n là số lẻ

- Bước 3 : kết thúc

* Viết chương trình :

uses crt;

var n : integer;

begin

clrscr;

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

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

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

readln

end.

Thuật toán:

B1: nhập a

B2: nếu a mod 2=0 thì a là số chẵn nếu ko thì a là số lẻ

B3: kết thúc

Vtchg trình:

uses crt;

var a,integer;

begin

write('nhap a:');readln(a);

if (a mod 2)=0 then writeln('',a,' la so chan') else writeln('',a,'la so le');

readln;

end.