Program to check the given number is divisible by 3 & 5 or not. (Qbasic Code)
CLS
INPUT "Enter a number"; n
x = n MOD 3
y = n MOD 5
IF x = 0 AND y = 0 THEN
PRINT "The given number is exactly divisible 3 and 5";
ELSE
PRINT "The given number is not exactly divisible by 3 and 5";
END IF
END
CLS
INPUT "Enter a number"; n
x = n MOD 3
y = n MOD 5
IF x = 0 AND y = 0 THEN
PRINT "The given number is exactly divisible 3 and 5";
ELSE
PRINT "The given number is not exactly divisible by 3 and 5";
END IF
END