Блог учителя Информатики

Решение задачи ExamBegin10


Условие задачи:

На вход подаются два целых положительных числа 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.
Поделиться:
Вам также может понравится
Делаем Черепашку в виде снежинки
Перевод десятичных чисел в двоичные на Pascal
Решение задачи ExamBegin80
Решение задачи ExamBegin79

Оставьте комментарий