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

- Input : số nguyên dương a

- Output : a là số chẵn hay số lẽ

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

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

- Bước 2 : nếu a mod 2 = 0 thì in ra màn hình a  là số chẵn ngược lại in a là số lẽ

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

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

program sksk;

uses crt;

var a : integer;

begin

clrscr;

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

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

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

readln

end.

-XĐBT:  

INP: nhập a

OUTP: xem a chẵn hay lẻ

-MTTT:

B1: nhập a

B2: nếu a mod 2=1 thì in ra màn hình "a la so le" còn nếu ko thì in "a la so chan"

B3: KT

-Chương trình:

uses crt;

var a:integer;

begin

clrscr;

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

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

readln;

end.