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 in jagat mandir school

COVID-19