как проверить, , является ли натуральное число k степенью 3

[rager06]

Всем привет, подскажите пожалуйста, как можно проверить является ли натуральное число k степенью 3?
Мозг уже сломал себе. Вроде бы все просто, но что-то не получается

[Vanta11a]

m:=1;
for i:=1 to k do
 begin
 m:=m*3;
 if k=m then ...
 end;

Не вариант?

[evg_m]

k:=27;
ok:=true;
while k>1 do 
  if (k mod 3)>0 then begin ok:=false; break; end
  else k:=k dov 3;

[Serge_Bliznykov]

Vanta11a границы указаны совершенно абстрактные. Переполнение возникнет уже при самых скромных K (ну, попробуйте проверить, при K равном 90)

evg_m
позволю исправить опечатку и дополнить код выводом результата:

var k : longint;
   ok : boolean;
begin
  k:=27;
  ok:=true;
  while k>1 do
    if (k mod 3)>0 then begin ok:=false; break; end
    else k:=k div 3;

  if ok then WriteLn('Является степенью тройки')
  else WriteLn('Не является степенью тройки');

  readln;

ну и ещё один вариант, экзотический, зато без циклов
для решения задачи, мне кажется нужно просто напросто взять корень кубический из числа K и, если получится целое
число, значит исходное число является степенью числа 3, иначе - нет.
используя свойства Логарифма
Задачу можно решить, например, так:

  k := 81;
  if k>1 then
  if frac(ln(k)/ln(3))<0.000001
    then WriteLn('Является степенью тройки')
    else WriteLn('Не является степенью тройки');

  readln;

[Вадим Мошев]

Сообщение от Serge_Bliznykov

Vanta11a границы указаны совершенно абстрактные. Переполнение возникнет уже при самых скромных K (ну, попробуйте проверить, при K равном 90)

evg_m
позволю исправить опечатку и дополнить код выводом результата:

var k : longint;
   ok : boolean;
begin
  k:=27;
  ok:=true;
  while k>1 do
    if (k mod 3)>0 then begin ok:=false; break; end
    else k:=k div 3;

  if ok then WriteLn('Является степенью тройки')
  else WriteLn('Не является степенью тройки');

  readln;

ну и ещё один вариант, экзотический, зато без циклов
для решения задачи, мне кажется нужно просто напросто взять корень кубический из числа K и, если получится целое
число, значит исходное число является степенью числа 3, иначе - нет.
используя свойства Логарифма
Задачу можно решить, например, так:

  k := 81;
  if k>1 then
  if frac(ln(k)/ln(3))<0.000001
    then WriteLn('Является степенью тройки')
    else WriteLn('Не является степенью тройки');

  readln;

Сергей, так Вас зовут?
Вы говорите про кубический корень, но Вы вычисляете логарифм с основанием 3

[Serge_Bliznykov]

Вы говорите про кубический корень, но Вы вычисляете логарифм с основанием 3

Вы абсолютно правильно заметили.
Никакого отношения кубический корень к данной задаче не имеет. Это безумная оговорка/описка/ошибка с моей стороны!

А вот логарифм тут к месту.
И действительно по основанию 3. Т.к. результатом (по определению функции логарифма) получается степень, в которую надо возвести число 3, чтобы получить число K...

p.s. думаю, что преподаватель явно ждёт решения такого, как предложил уважаемый evg_m


p.p.s. Ага, точно, Сергеем меня зовут. Вам не откажешь в проницательности!

[rager06]

Спасибо всем за помощь, друзья!