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.
Gói VIP thi online tại VietJack (chỉ 400k/1 năm học), luyện tập gần 1 triệu câu hỏi có đáp án chi tiết