Loops/While: Difference between revisions
→{{header|OCaml}}: + Pascal
(added ocaml) |
(→{{header|OCaml}}: + Pascal) |
||
Line 59:
n := !n / 2
done;;</ocaml>
=={{header|Pascal}}==
<pascal>
program divby2(output);
var
i: integer;
begin
i := 1024;
while i > 0 do
begin
writeln(i);
i := i div 2
end
end.
</pascal>
=={{header|Perl}}==
| |||