Viết chương trình nhập vào 1 số nguyên kiểm tra xem số đó có chia hết cho 3 hay không và là số chẵn hay số lẻ

Lời giải:

program bai1;

uses crt;

var n: integer;

begin

clrscr;

repeat

write(‘nhap so nguyen =’); readln(n);

until n > 0;

if n mod 3 = 0 then

write(‘-so’,n,’chia het cho 3’) else

write(‘-so’,n,’khong chia het cho 3’);

writeln;

if n mod 2 = 0 then

write(‘- so’,n,’ la so chan’) else

write(‘-so’,n,’ la so le’);

readln;

end.