nput: Số nguyên n
Output: Thông báo ra n chẵn hay lẻ
Thuật toán:
B1: Nhập số nguyên n từ bàn phím
B2: Nếu n chia 2 dư 0 thì thông báo ra n chẵn, ngược lại thông báo ra n lẻ
B3: Kết thúc thuật toán
Chương trình:
program chanle;
uses crt;
var n:integer;
begin
clrscr;
writeln('Nhap n= '); readln(n);
if n mod 2=0 then writeln('n la so chan') else writeln('n la so le);
readln
end.