OJ Board

program v10190;

var
n, a: double;

function isPow: boolean;
var
k: double;
begin
k := ln(n)/ln(a);

if abs(k-trunc(k)) < 1e-8 then
isPow := true
else
isPow := false;
end;

procedure solve;
begin
write(n:0:0);
while true do
begin
n := trunc(n/a);
write(' ', n:0:0);
if abs(n-1) < 1e-8 ...

you have used IBM VisualAge C++

but I also don't know how to edit in it and debug in it.