RosettaCodeData/Task/Loops-While/True-BASIC/loops-while.basic

8 lines
71 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
LET i = 1024
DO WHILE i > 0
PRINT i
LET i = INT(i / 2)
LOOP
END