25 lines
390 B
Text
25 lines
390 B
Text
rem - return p mod q
|
|
function mod(p, q = integer) = integer
|
|
end = p - q * (p / q)
|
|
|
|
rem - return octal representation of n
|
|
function oct$(n = integer) = string
|
|
var s = string
|
|
s = ""
|
|
while n > 0 do
|
|
begin
|
|
s = chr(mod(n,8) + '0') + s
|
|
n = n / 8
|
|
end
|
|
end = s
|
|
|
|
rem - count in octal until overflow
|
|
var i = integer
|
|
i = 1
|
|
while i > 0 do
|
|
begin
|
|
print oct$(i)
|
|
i = i + 1
|
|
end
|
|
|
|
end
|