Wap to find sum of digits

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

SUB SU8M(N)
S=0
WHILE N<>0
R = N MOD 10
S = S+R
N = N\10
WEND
PRINT"SUM OF DIGITS IS ";S
END SUB

Comments

Post a Comment

Popular posts from this blog

Journey With Jagat Mandir❣️

       When I arrive at jagat Mandir I was 15 years old. I joined j.m because my best friend suggested me to join. I came to j.m in class 8. I was very happy to study with my friend. When I arrive many bad and good things happen to me like our section was divided in two part and I was in section A. And my friend was in section B. In section A there no one I knew before accept samip limbu who became my best friend and more than brother to me. In the same year I arrive the jagat Mandir our school participate in football tournament which was organized by peace point school.       The year we participate we lost the tournament but I got chance to show my skill because I used to play football before next year. We reach up to final and became 1st runner up. In 2076 we became 2nd runner up. It was one of the best moments of my life.      The next unforgettable movement of my life with jagat Mandir was monsoon hiking because it was so good that I cannot say in words playing with water and
Read more

MY FATHER

                                 FATHER     My father name is tej badhur thapa Magar.  He is head of our family. He is our super hero Bec he made our life better than his. He is now 47 years old. His profession is weding designer. He work very hard to full fill our needs and give us better life. I am very thankful of my father.
Read more
Wap to find area of triangle DECLARE FUNCTION AREA(B,H) CLS INPUT"ENTER BREADTH";B INPUT"ENTER HEIGHT";H PRINT"AREA OF TRIANGLE";AREA(B,H) END FUNCTION AREA(B,H) AREA=1/2*B*H END FUNCTION
Read more