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

m
→‎{{header|Free Pascal}}: nested comments removed
(→‎{{header|Free Pascal}}: over strechted limit to 100 in 3.2 s)
m (→‎{{header|Free Pascal}}: nested comments removed)
Line 819:
BREAK;
//now jump over 4 digits
{
IF dgtSum <= 72{ (* 2*SoD[BASE4-1])} *) then
jump over 8 digits
}
Anonymous user