[code] Kiểm tra có chia hết cho một số

Ví dụ: Kiểm tra có chia hết cho 7 không?

$n=InputBox("","N=",0," M")
$a=Mod($n,7)
If Not $a=0 Then MsgBox(0,$n,"không chia hết cho 7") EndIf
If $a=0 Then MsgBox(0,$n,"chia hết cho 7") EndIf

Để kiểm tra có chia hết cho số khác thì bạn chỉ cần thay số 7 ở chương trình trên bằng số bạn cần kiểm tra.