Tuesday, October 29, 2019

QBASIC to find Sum of Digits

CLS
INPUT "Enter any number"; N
S = 0
WHILE N<> 0
R = N MOD 10
S = S+R
N = N\10
WEND
PRINT "Sum of didits="; S
END
at

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)

  DASHAIN Dashain , also  Bijaya Dashami ) is a festival originating from  Nepal . In parts of India, it is called  Dashera .  Dashera. Dash...

  • E-learning (Merits and Demerits )
     As we know where whole world is suffering from this pandemic situation called covide-19. All the countries are suffering a lot of circumsta...
  • (no title)
    Travelling provides us with new experienceces and perspectives. We are able to see the world in a different way and learn abou...