Harshad or Niven series: Difference between revisions
Harshad or Niven series en Yabasic
(Harshad or Niven series en BASIC256) |
(Harshad or Niven series en Yabasic) |
||
Line 4,381:
1 2 3 4 5 6 7 8 9 10 12 18 20 21 24 27 30 36 40 42 1002
</pre>
=={{header|Yabasic}}==
{{trans|BASIC256}}
<lang Yabasic>
sub sumDigits(n)
if n < 0 then return 0 : endif
local sum
while n > 0
sum = sum + mod(n, 10)
n = int(n / 10)
wend
return sum
end sub
sub isHarshad(n)
return mod(n, sumDigits(n)) = 0
end sub
print "Los primeros 20 numeros de Harshad o Niven son:"
contar = 0
i = 1
repeat
if isHarshad(i) then
print i, " ",
contar = contar + 1
end if
i = i + 1
until contar = 20
print : print
print "El primero de esos numeros por encima de 1000 es:"
i = 1001
do
if isHarshad(i) then
print i, " "
break
end if
i = i + 1
loop
print
end
</lang>
{{out}}
<pre>
Igual que la entrada de BASIC256.
</pre>
=={{header|zkl}}==
| |||