QBASIC PROGRAM TO CHECK THE NO. IS DIVISIBLE BY 13 OR NOT(SUB)
Solution-
DECLARE SUB CHECK(N)
CLS
INPUT"ENTER ANY NUMBER"; N
CALL CHECK(N)
END
SUB CHECK(N)
IF N MOD 13= 0 THEN
PRINT" THE NUMBER IS DIVISIBLE BY 13 "
ELSE
PRINT" THE NUMBER IS NOT DIVISIBLE BY 13"
END IF
END SUB