Loops/While: Difference between revisions
Added ALGOL-M
(+Stata) |
(Added ALGOL-M) |
||
Line 153:
+1024 +512 +256 +128 +64 +32 +16 +8 +4 +2 +1
</pre>
=={{header|ALGOL-M}}==
<lang algol>begin
integer i;
i := 1024;
while i > 0 do begin
write( i );
i := i / 2;
end;
end</lang>
=={{header|ALGOL W}}==
|