This website requires JavaScript.
Explore
Help
Sign In
mirror
/
RosettaCodeData
mirror of
https://github.com/acmeism/RosettaCodeData.git
Watch
1
Star
0
Fork
You've already forked RosettaCodeData
0
Code
Issues
Packages
Projects
Releases
Wiki
Activity
main
RosettaCodeData
/
Task
/
Loops-While
/
Delphi
/
loops-while.pas
12 lines
110 B
ObjectPascal
Raw
Permalink
Blame
History
var
i
:
Integer
;
begin
i
:
=
1
0
2
4
;
while
i
>
0
do
begin
Writeln
(
i
)
;
i
:
=
i
div
2
;
end
;
end
;
Reference in New Issue
View Git Blame
Copy Permalink