Loops/While: Difference between revisions

Line 877:
I := @I div 2
end</lang>
=={{header|Panoramic}}==
<lang Panoramic>
dim x%:rem an integer
 
x%=1024
 
while x%>0
 
print x%
x%=x%/2
 
end_while
 
rem output starts with 1024 and ends with 1.
 
end
</lang>
 
=={{header|PARI/GP}}==