* Xác định bài toán :

- Input : số nguyên a

- Output : số nguyên a là số chẵn hoặc số nguyên a là số lẻ

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

- Bước 1 : nhập số nguyên a

- Bước 2 :  

- Bước 2.1 : nếu a mod 2 = 0 thì thông báo a là số chẵn

- Bước 2.2 : ngược lại thông báo a là số lẻ

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

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

program KTSN;

uses crt;

var a : integer;

begin

clrscr;

write('nhap so nguyen a :');

readln(a);

if (a mod 2 = 0) then

write(a,' la so chan')

else write(a,' la so le');

readln;

end.

Inp: số nguyên a

Out: đó là số chẵn hay lẻ

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ì là số lẻ

B3: kết thúc

Vt chg tình

program KTSN:

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.