viết chương trình kiểm tra 1 số nguyên a được nhập vào từ bàn phím là số chẵn hay số lẻ

2 câu trả lời

// Viết bằng pascal

uses crt;

var a:longint;

begin

       clrscr;

       write('Nhap a= ');

       readln(a);

       if a mod 2 = 1 then write(a,' la so le')

       else write(a, ' la so chan');

       readln;

end.

uses crt;

var n:longint;

begin

clrscr;

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

if n mod 2=0 then write('La so chan') else write('La so le');

readln

end.