Kiểm tra tính chẵn lẽ của 1 số

Xin chào các bạn, hôm nay Thích Học Pascal nhận được một bài toán từ một bạn học sinh lớp 8.

Đề : Viết chương trình nhập vào 1 số n và in ra màn hình tính chẵn lẻ của nó.

Để kiểm tra tính chẵn lẻ của một số ta sử cụng câu lệnh điều kiện nếu n chia hết cho 2 thì n là số chẵn và ngược lại.

IF n mod 2 = 0 then write('n la so chan') else ('n la so le');

Chương trình hoàn thiện như sau :

program chanle;

uses crt;

var n;

BEGIN

     clrscr;

     write('Nhap n: ');

     readln(n);

     IF n mod 2 = 0 then write('n la so chan') else ('n la so le');

     readln;

END.