Loops/While: Difference between revisions
Content added Content deleted
(→{{header|E}}: E example revived) |
(Added DWScript + fixed Delphi snippet) |
||
| Line 213: | Line 213: | ||
begin |
begin |
||
Writeln(IntToStr(i)); |
Writeln(IntToStr(i)); |
||
i := i |
i := i div 2; |
||
end; |
end; |
||
end;</lang> |
|||
=={{header|DWScript}}== |
|||
<lang Delphi>var i := 1024; |
|||
while i > 0 do begin |
|||
PrintLn(i); |
|||
i := i div 2; |
|||
end;</lang> |
end;</lang> |
||