Prime or composite

DECLARE SUB CHECK(N)
CLS
INPUT"ENTER ANY NUMBER";N
CALL CHECK (N)
END

SUB 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 INPUT NO. IS PRIME"
ELSE
PRINT"THE INPUT NO. IS COMPOSITE"
END IF
END SUB



Comments

Popular posts from this blog

My Experience Of Monsoon Hike

Cyber Crime

Picnic experience