Base-16 representation: Difference between revisions
→{{header|ALGOL W}}: Tweak
(Added Algol 68) |
(→{{header|ALGOL W}}: Tweak) |
||
Line 49:
for i := 1 until 500 do begin
integer v;
v := i;
while
then v := v div 16
% found a number that needs a-f in its hex representation %
▲ if needsAToF then begin
hCOunt := hCOunt + 1;
writeon( i_w := 3, s_w := 0, " ", i );
if hCount rem 20 = 0 then write()
end
end while_v_gt_0
end for_i
end.</lang>
{{out}}
<pre>
|