How to resolve the algorithm Harshad or Niven series step by step in the Run BASIC programming language

Published on 12 May 2024 09:40 PM

How to resolve the algorithm Harshad or Niven series step by step in the Run BASIC programming language

Table of Contents

Problem Statement

The Harshad or Niven numbers are positive integers ≥ 1 that are divisible by the sum of their digits. For example,   42   is a Harshad number as   42   is divisible by   (4 + 2)   without remainder. Assume that the series is defined as the numbers in increasing order.

The task is to create a function/method/procedure to generate successive members of the Harshad sequence. Use it to:

Show your output here.

Let's start with the solution:

Step by Step solution about How to resolve the algorithm Harshad or Niven series step by step in the Run BASIC programming language

Source code in the run programming language

while count < 20
  h = h + 1
  if neven(h) = 0 then
    count = count + 1
    print count;": ";h
  end if
wend

h = 1000
while 1 = 1
  h = h + 1
  if neven(h) = 0 then
    print h
    exit while
  end if
wend

function neven(h)
h$ = str$(h)
for i = 1 to len(h$)
 d = d + val(mid$(h$,i,1))
next i
neven = h mod d
end function

  

You may also check:How to resolve the algorithm Determine if a string is numeric step by step in the Phix programming language
You may also check:How to resolve the algorithm Tokenize a string step by step in the ALGOL 68 programming language
You may also check:How to resolve the algorithm Dice game probabilities step by step in the Haskell programming language
You may also check:How to resolve the algorithm XML/Output step by step in the Oz programming language
You may also check:How to resolve the algorithm QR decomposition step by step in the F# programming language