13 lines
473 B
Text
13 lines
473 B
Text
|
> n := 1024: while n > 0 do print(n); n := iquo(n,2) end:
|
||
|
|
1024
|
||
|
|
512
|
||
|
|
256
|
||
|
|
128
|
||
|
|
64
|
||
|
|
32
|
||
|
|
16
|
||
|
|
8
|
||
|
|
4
|
||
|
|
2
|
||
|
|
1
|