DIVISIBLE BY 13 OR NOT(SUB)

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

SUB CHECK(N)
IF N MOD 13 = 0 THEN
PRINT "THE GIVEN NO IS DIVISIBLE BY 13"
ELSE
PRINT "THE GIVEN NO IS NOT DIVISIBLE BY 13"
END IF
END SUB

Comments

Popular posts from this blog

My Father

Father's day

Aadhi ko Manorama Nitra