Loops/While: Difference between revisions
Content added Content deleted
(added ocaml) |
(→{{header|OCaml}}: + Pascal) |
||
| Line 59: | Line 59: | ||
n := !n / 2 |
n := !n / 2 |
||
done;;</ocaml> |
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}}== |
=={{header|Perl}}== |
||