Harshad or Niven series: Difference between revisions

=={{header|FutureBasic}}==

<syntaxhighlight lang="futurebasic">

local fn Harshad( num as long ) as long

long sum = 0, tmp = num

while ( tmp > 0 )

sum += tmp mod 10

tmp = tmp / 10

wend

end fn = (num mod sum) = 0

local fn DoIt

long i = 1, cnt = 0

print "First 20 in series: ";

while (1)

if fn Harshad( i )

if ( cnt < 20 ) then print ; i; " "; : cnt++

if ( i > 1000 ) then print : print "First above 1000: "; i : exit while

end if

i++

wend

end fn

fn Doit

HandleEvents

</syntaxhighlight>

{{output}}

<pre>

First 20 in series: 1 2 3 4 5 6 7 8 9 10 12 18 20 21 24 27 30 36 40 42

First above 1000: 1002

</pre>