Loops/While: Difference between revisions

(new Emacs Lisp)
Line 95:
i /= 2;
}</lang>
 
=={{header|ALGOL 60}}==
<lang algol60>INTEGER I;
I:=1024;
WHILE I>0 DO
BEGIN
OUTINT(I);
I:=I/2
END</lang>
 
=={{header|ALGOL 68}}==
1,392

edits