1.Viết chương trình nhập vào 1 số chia hết cho 3 hay ko? 2.Viết chương trình nhập vào 1 số cho biết đó là số chẵn hay số lẻ?

1.

program ct;

uses crt;

var n:integer;

begin

clrscr;

write('nhap mot so:=');readln(n);

if n mod 3=0 then writeln(n,'chi het cho 3') else writeln('khong chia het cho 3);

readln

end.

2.

program ct;

uses crt;

var n:integer;

begin

clrscr;

write('nhap mot so:=');readln(n);

if n mod 2=0 then writeln(n,' la so chan');

if n mod 2<>0 then writeln(n,'la so le');

readln

end.

uses crt;
var n : integer;
begin
write('Nhap n :'); readln(n);
writeln;
if n mod 3 = 0 then write('n chia het cho 3') else write(0);
if n mod 2 = 1 then write('n le') else write('n chan');
readln
end.