Search This Blog

Wikipedia

Search results

Tuesday, October 1, 2019

QBASIC PROGRAM TO FIND SUM OF DIGITS. SUB

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

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

No comments:

               Journey of Jagat Mandir H. S. School When I was at the age of three I joined the school in the village. When I came to K...