Count in octal: Difference between revisions

Content added Content deleted
(Added Algol W)
(→‎{{header|ALGOL W}}: fixed comment)
Line 201: Line 201:
end do begin
end do begin
cPos := cPos + 1
cPos := cPos + 1
end for_cPos;
end while_v_gt_0;
% show first digit on a newline %
% show most significant digit on a newline %
write( r( cPos // 1 ) );
write( r( cPos // 1 ) );
% continue the line with the remaining digits (if any) %
% continue the line with the remaining digits (if any) %