Loops/While: Difference between revisions
Content deleted Content added
m added output |
PascalABC.NET |
||
Line 2,747: | Line 2,747: | ||
end |
end |
||
end.</syntaxhighlight> |
end.</syntaxhighlight> |
||
=={{header|PascalABC.NET}}== |
|||
<syntaxhighlight lang="delphi"> |
|||
## |
|||
var n := 1024; |
|||
while n > 0 do |
|||
begin |
|||
Println(n); |
|||
n := n div 2; |
|||
end; |
|||
</syntaxhighlight> |
|||
=={{header|PeopleCode}}== |
=={{header|PeopleCode}}== |