+- HP Forums (https://www.hpmuseum.org/forum)
+-- Forum: HP Software Libraries (/forum-10.html)
+--- Forum: General Software Library (/forum-13.html)
+--- Thread: (71B) Digital Root of Integers (/thread-6460.html)
(71B) Digital Root of Integers - Eddie W. Shore - 06-27-2016 03:23 AM
Add all the numbers of an integer and repeat until you have a single digit (1-9).
Program DROOT (52 bytes)
10 DESTROY N
20 INPUT “INTEGER:”;N
22 N=IP(N)
30 D=1+MOD(N-1,9)
40 DISP D