Viết chương trình nhập vào một số nguyên dương n kiểm tra và thông báo ra màn hình số n vừa là số chẵn vừa chia hết cho 3 không?
2 câu trả lời
uses crt;
var n: integer;
Begin
clrscr;
write('Nhap n: '); readln(n);
if (n mod 2=0) and (n mod 3=0) then
write(n,' vua la so chan, vua chia het cho 3')
else write(n,' khong la so chan, khong chia het cho 3');
readln
End.
