Anonymous user
Harshad or Niven series: Difference between revisions
Added solution for Action!
Not a robot (talk | contribs) (Add Modula-2) |
(Added solution for Action!) |
||
Line 187:
42
1002</pre>
=={{header|Action!}}==
<lang Action!>INT FUNC SumOfDigits(INT a)
INT sum
sum=0
WHILE a#0
DO
sum==+a MOD 10
a==/10
OD
RETURN (sum)
INT FUNC Next(INT a)
INT sum
DO
a==+1
sum=SumOfDigits(a)
UNTIL a MOD sum=0
OD
RETURN (a)
PROC Main()
INT i,a
a=0
FOR i=1 TO 20
DO
a=Next(a)
PrintI(a)
Put(32)
OD
Print("... ")
a=Next(1000)
PrintIE(a)
RETURN</lang>
{{out}}
[https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/Harshad_or_Niven_series.png Screenshot from Atari 8-bit computer]
<pre>
1 2 3 4 5 6 7 8 9 10 12 18 20 21 24 27 30 36 40 42 ... 1002
</pre>
=={{header|Ada}}==
| |||