6 lines
73 B
Text
6 lines
73 B
Text
|
n := 1024;
|
||
|
|
while n > 0 do
|
||
|
|
Print(n, "\n");
|
||
|
|
n := QuoInt(n, 2);
|
||
|
|
od;
|