Question

IV. Write a program in QBasic to input a number and check it is
a) divisible by both 9 and 7​

Answer 1

cls

input'' enter any number=";N

Let X =N mod 7

Let y =N mod 9

If X=0 or,Y=0,then

PRINT N;" is divisible"

ELSE

PRINT N; " is not divisible"

End if

End