Исправить программу - Turbo Pascal (33860)

Формулировка задачи:

Дана степень числа А. Найти её показатель. Не въехал что к чему, написал вот это :
var A,n:integer;
begin
writeln('Vvedi A');
readln(a);
writeln('Vvedi b');
readln(n);
write('Stepen chisla A : ',exp(n*ln(a)));
readln;
write('Pokazatel: ', n );
 
readln
 
end.
Но есть условие, что надо использовать оператор цикла, а причем он тут и куда его воткнуть, я не пойму=\ Исправьте программу, пожалуйста, кто понимает)

Код к задаче: «Исправить программу - Turbo Pascal (33860)»

textual
var
  a, b, n : integer;
begin
  n := 0;
  write('введите степень числа A:');
  readln(b);
  write('введите число A:');
  readln(a);
  while b <> 1 do
  begin
    b := b div a;
    inc(n)
  end;
  writeln('показатель: ', n);
end.

11   голосов, оценка 3.636 из 5


СОХРАНИТЬ ССЫЛКУ