Minimum multiple of m where digital sum equals m: Difference between revisions
Content added Content deleted
(→{{header|Free Pascal}}: over strechted limit to 100 in 3.2 s) |
m (→{{header|Free Pascal}}: nested comments removed) |
||
Line 819: | Line 819: | ||
BREAK; |
BREAK; |
||
//now jump over 4 digits |
//now jump over 4 digits |
||
{ |
{ |
||
IF dgtSum <= 72 |
IF dgtSum <= 72 (* 2*SoD[BASE4-1]) *) then |
||
jump over 8 digits |
jump over 8 digits |
||
} |
} |