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

input: nhập số a;

output: a là số chẵn hay lẽ;

mô tả thuật toán:

B1: nhập a;

B2: nếu(a mod 2=0)thì xuất ( a la so chan )

B3: ngược lại xuất ( a la so le );

B4: kết thúc;

Viết chương trình:

program bai_giai;

uses crt;

var a:longint;

begin

clrscr;

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

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

readln;

end.

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

- Input : số a

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

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

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

- Bước 2 : 

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

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

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

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

uses crt;

var a : integer;

begin

clrscr;

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

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

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

readln

end.