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? Lam giúp em với
1 câu trả lời
Program baitap;
Var n: byte;
begin
Write (' Nhap so n la so nguyen duong: ');
Readln (n);
If n mod 2 = 0 and n mod 3 = 0 then
Write ( n,' la so chan chia het cho 3' );
If n mod 2 <> 0 and n mod 3 = 0 then
Write ( n,' la so le chia het cho 3');
If n mod 2 = 0 and n mod 3 <> 0 then
Write ( n,' la so chan khong chia het cho 3 ');
If n mod 2 <> 0 and n mod 3 <> 0 then write ( n,' khong la so le khong chia het cho 3);
Readln
End.
