Product of decimal digits of n: Difference between revisions

From Rosetta Code
Content added Content deleted
(duplicate)
(three tasks moved, to correct the task counts)
 
(6 intermediate revisions by 2 users not shown)
Line 1: Line 1:
#REDIRECT [[Digital_root/Multiplicative_digital_root]]
#REDIRECT [[Digital_root/Multiplicative_digital_root]]


;Task: Find product of decimal digits of '''n''', where '''n <= 100'''


The three existing entries and the original (near-duplicate) task description have now all been moved onto the redirect page, please do '''not''' add any further entries here!
<br><br>

=={{header|Ring}}==
<lang ring>
load "stdlib.ring"
see "working..." + nl
see "Product of decimal digits of n:" + nl

row = 0
limit = 100

for n = 1 to limit
prod = 1
strn = string(n)
for m = 1 to len(strn)
prod = prod * number(strn[m])
next
see "" + prod + " "
row = row + 1
if row%5 = 0
see nl
ok
next

see "done..." + nl
</lang>
{{out}}
<pre>
working...
Product of decimal digits of n:
1 2 3 4 5
6 7 8 9 0
1 2 3 4 5
6 7 8 9 0
2 4 6 8 10
12 14 16 18 0
3 6 9 12 15
18 21 24 27 0
4 8 12 16 20
24 28 32 36 0
5 10 15 20 25
30 35 40 45 0
6 12 18 24 30
36 42 48 54 0
7 14 21 28 35
42 49 56 63 0
8 16 24 32 40
48 56 64 72 0
9 18 27 36 45
54 63 72 81 0
done...
</pre>

Latest revision as of 06:26, 20 December 2021

The three existing entries and the original (near-duplicate) task description have now all been moved onto the redirect page, please do not add any further entries here!