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

PERFECT SQR OR NOT

Picnic experience