RosettaCodeData/Task/Loops-While/LDPL/loops-while.ldpl
2023-09-01 09:35:06 -07:00

10 lines
134 B
Text

data:
n is number
procedure:
store 1024 in n
while n is greater than 0 do
display n lf
divide n by 2 in n
floor n
repeat