# To check whether the given no is completely 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

Post a Comment

Popular posts from this blog

# print only vowels from a given word. (sub) DECLARE SUB DISP(N$) CLS INPUT "Enter any word";N$ CALL DISP(N$) END SUB DISP(N$) FOR I =1 TO LEN (N$) B$=MID$(N$,I, 1) C$=UCASE$(B$) IF C$="A" OR C$="E" OR C$="I" OR C$="O" OR C$="U" THEN V$=V$+B$ NEXT I PRINT "Vowel";V$ END SUB
Read more
Journey on jagat mandir school In life nothing is easy. We have to put evey step for the success. And we all know that school is the second home of children. Every student has something best memory during school and today knows sharing my 16 years journey of school. We have to work hard to be a successful person in life.  Since I came to jagat mandir, I am able to speak, read, write upfront of all students and I am very thankful to get knowledge from teachers. As I came in class 4 which has made many special moments in my life especially in my childhood. The first day, we really awkward because I was not known to anyone and all of them were looking me so dreadfully. Then two of the friends (aariti and sachi) intract with me and I became much friendly with them. The section was divided into two section. Our section name was dhaulagiri and another was Annapurna. After the end of grade 4, I was able to upgrade my studies at grade 5,6,7.there was many teachers who taught us and
Read more
# Display reverse of input string. (sub) DECLARE SUB REV (N$) CLS INPUT "Enter any word";N$ CALL REV (N$) END SUB REV (N$) FOR I=LEN(N$)TO 1 STEP -1 B$=MID$(N$,I, 1) C$=C$+B$ NEXT I PRINT "Reversed word ";C$ END SUB
Read more