RosettaCodeData/Task/Loops-While/Mathematica/loops-while.math

6 lines
53 B
Plaintext

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