QBASIC PROGRAM TO CHECK PRIME OR COMPOSITE(SUB)
Solution: -
DECLARE SUB CHECK(N)
CLS
INPUT "ENTER ANY NUMBER";N
CALL CHECK(N)
END
FUNCTION CHECK(N)
C=0
FOR I=1 TO N
IF N MOD I =0 THEN C=C+1
NEXT I
IF C=2 THEN
PRINT "THE GIVEN NO IS PRIME"
ELSE
PRINT "THE GIVEN NO IS COMPOSITE"
END IF
END SUB