На вход подаются два целых положительных числа A и K; каждое число располагается на новой строке. Если число A является степенью числа K, т. е. A = KN, то вывести показатель этой степени N, иначе вывести текст «NO».
uses PT4Exam;
var
a, k, x, n: integer;
z: boolean;
begin
Task('ExamBegin10');
Read(a, k);
x := 1; n := 0; z := false;
while x < a do
begin
x := x * k;
n := n + 1;
if x = a then z := true;
end;
if (z = true) or (a = 1) then write(n)
else write('NO');
end.
