Digital root/Multiplicative digital root: Difference between revisions
Digital root/Multiplicative digital root (view source)
Revision as of 15:56, 25 March 2017
, 7 years ago→{{header|ALGOL W}}
(→{{header|ALGOL W}}: Removed duplicate entry) |
|||
Line 238:
) ;
begin
integer v;
v
while begin
v
v > 0
end do begin end;
mp := mp + 1;
end while_mdr_gt_9 ;
▲ end MDR ;
% task test cases %
Line 259 ⟶ 257:
for n := 123321, 7739, 893, 899998 do begin
integer mdr, mp;
getMDR( n, mdr, mp );
write( s_w := 1, i_w := 8, n, i_w := 3, mdr, i_w := 2, mp )
end for_n ;
Line 272 ⟶ 270:
for i := 0 until 9 do mdrFound( i ) := 0;
totalFound := 0;
requiredTotal := 10 * requiredMdrs;
n := -1;
| |||