Степень числа

[DmitryChuvashin]

Написать процедуру проверяющую является ли введенное число N степенью введенного числа A; N (от 2 до maxint) A(от 2 до N-1) заранее! спасибо

[Bayazet]

i := 1;
flag := false;
While (i < N) and (not flag) do
begin
  flag := power(A, i) = N;
  i := i+1;
end;
If flag then writeln('число ', N, ' является ', A, ' в ', i-1, ' степени');

[Sazary]

Пользуйтесь поиском.
http://programmersforum.ru/showthread.php?t=39639