Как-то так... )))
Смотри картинку...
var
A, r:real;
N, s:integer;
begin
s := 1;
write('a = '); readln(a);
write('n = '); readln(n);
r := a;
while r <= n do
writeln(s);
inc(s);
r := r * a;
end;
if a > n then
writeln(a , ' в любой степени >= 1 будет больше числа ', n);
end.
Ответ:
270(8)
184(10)
B8(16)
----------
10101100(2)
172(10)
AC(16)
-----------
101000001(2)
501(8)
141(16)
------------
111111(2)
77(8)
63(10)