На вход подаются два целых положительных числа 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.