Harshad or Niven series: Difference between revisions
→{{header|MMBasic}}
Line 2,984:
digitSum = digitSum + val(mid$(y$,i,1))
next i
end function
function isHarshad(num)
isHarshad = num MOD digitSum(num)
end function
</syntaxhighlight>
{{out}}
|