To check whether the given no is completely divisible by 13 or not using sub


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

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

Comments

Popular posts from this blog

experience of SEE exam cancelled and covid-19

My journey in jagat mandir