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