Loops/While: Difference between revisions
→{{header|PL/0}}: Added a solution.
(Merge duplicated example for Lambdatalk) |
(→{{header|PL/0}}: Added a solution.) |
||
Line 2,665:
}
}</syntaxhighlight>
=={{header|PL/0}}==
<syntaxhighlight lang="pascal">
var i;
begin
i := 1024;
while i > 0 do
begin
! i;
i := i / 2
end;
end.
</syntaxhighlight>
{{out}}
<pre>
1024
512
256
128
64
32
16
8
4
2
1
</pre>
=={{header|PL/I}}==
|