Question

Viết chương trình nhập vào số tự nhiên n in ra màn hình số đó có chia hết cho cả 2 3 5 9

Answer 1

Var x:longint;

Begin

Write('Nhap vao so can xet ');readln(x);

If (x mod 2 = 0) and (x mod 3 = 0) and (x mod 5 = 0) and (x mod 9 = 0) then

write(x,' chia het cho ca 2, 3, 5 va 9')

Else write(x,' khong chia het cho ca 2, 3, 5 va 9');

Readln;

End.