Minimum multiple of m where digital sum equals m: Difference between revisions

m
(Added Easylang)
Line 582:
 
=={{header|EasyLang}}==
{{trans|AWK}}
<syntaxhighlight>
fastfunc digsumf n .
whilem n= > 01
repeat
sum += n mod 10
nh = nm div* 10n
msum += 10
while h > 0
sum += nh mod 10
h = h div 10
.
until sum = n
m += 1
.
return summ
.
for n = 1 to 70
mwrite =f 1n & " "
while digsum (m * n) <> n
m += 1
.
write m & " "
.
</syntaxhighlight>
 
 
=={{header|F_Sharp|F#}}==
2,083

edits