Product of decimal digits of n

Redirect to:

• Digital root/Multiplicative digital root

     

Task

Find the product of the decimal digits of a positive integer   n,   where n <= 100

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>

Output:

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...