Loops/While: Difference between revisions
added Fortran
No edit summary |
(added Fortran) |
||
Line 45:
repeat drop ;
1024 halving
=={{header|Fortran}}==
{{works with|Fortran|90 and later}}
INTEGER :: i = 1024
DO WHILE (i > 0)
WRITE(*,*) i
i = i / 2
END DO
=={{header|Java}}==
| |||