Bài 2:
-Kiểm tra chia hết cho 3:
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.
-KT chia hết cho 2:
var x:longint;
begin
write('nhap vao so x=');readln(x);
if (x mod 2=0) then writeln('x chia het cho 2')
else
writeln('x khong chia het cho 2');
readln;
end.
Chúc bạn học tốt!
