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

Input: 1 số a.

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

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

B1: Nhập một số a.

B2: Nếu a mod 2=0 thì thông báo a là số chẵn ngược lại thông báo a là số lẻ.

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

uses crt;
var a:integer;
begin 
clrscr;
   write('Nhap a: ');readln(a);
   if a mod 2=0 then writeln('a la so chan') else writeln('a la so le');
readln
end.

Xác định: dùng câu lệnh điều kiện để kiểm tra a là sô chẵn hay số lẻ và in kết quả ra màn hình.

               Input: số nguyên a

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

Thuật toán:

- Thuật toán liệt kê:

+ Bước 1: Nhập a

+ Bước 2: Nếu N chia hết cho 2 thì in ra a chẵn và kết thúc thuật toán ngược lại nếu a không chia hết cho 2 thì in ra a lẻ và kết thúc thuật toán

Chương trình:

program chan_le;

var a: integer;

begin

          readln(a);

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

                            else write('a la so le');

          readln

end.

#chucbanhoctot