RosettaCodeData/Task/Loops-While/SETL/loops-while.setl

6 lines
72 B
Text
Raw Permalink Normal View History

2017-09-23 10:01:46 +02:00
n := 1024;
while n > 0 loop
print( n );
n := n div 2;
end loop;