PRIME OR COMPOSITE(SUB)

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

Comments

Popular posts from this blog

Father's day

Journey to jm

My Father