input: số nguyên A

output: Số A là chẵn hay lẽ (true hoặc false)

B1 nhập A

B2 nếu A chia 2 dư 0 thì a là số chẵn

B3 nếu A chia 2 dư >0 thì a là số lẽ

B4 kết thúc

uses crt;

var a:longint;

begin

clrscr;

readln(a);

if a  mod 2=0 then write(a,'la so chan')

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

readln;

end.

`khoadang09`

* Xác định thuật toán :

- Input : số nguyên a

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

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

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

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

- Bước 3 : nếu a mod 2 <> 0 thì a là số lẻ

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