QBASIC PROGRAM TO FIND WHETHER THE GIVEN NO. IS DIVISIBLE BY 13 OR NOT.
DECLARE SUB CHECK(N)
CLS
INPUT"ENTER ANY NUMBER";N
CALL CHECK(N)
END
SUB CHECK(N)
IF N MOD 13=0 THEN
PRINT"DIVISIBLE BY 13"
ELSE"PRINT "NOT DIVISIBLE BY 13"
END IF
END SUB
DECLARE SUB CHECK(N)
CLS
INPUT"ENTER ANY NUMBER";N
CALL CHECK(N)
END
SUB CHECK(N)
IF N MOD 13=0 THEN
PRINT"DIVISIBLE BY 13"
ELSE"PRINT "NOT DIVISIBLE BY 13"
END IF
END SUB
Comments
Post a Comment