RosettaCodeData/Task/Loops-While/Mathematica/loops-while.math
2023-07-01 13:44:08 -04:00

5 lines
53 B
Text

i = 1024;
While[i > 0,
Print[i];
i = Floor[i/2];
]