Число - степень тройки? Опции

[Footballplayer]

Перелопатил весь форум, но подобного не нашёл... однако если такая тема есть заранее извиняюсь..
Короче решил летом постичь азы Паскаля по учебнику Окулова..вроде всё шло нормально пока не дошёл до задачек на использование цикла while..

Окончательно меня ввела в тупик вот эта задача:

Определить является ли число степенью тройки... даже код не могу подкинуть, т.к. не знаю от чего начать скакать..

[amega]

RathaR
введи число 10 и тебе видаст что оно есть степенью! поменяй тип на риел и постав знак деления...

Блин.. и то правда..йоперный театр ,кажись, я нифига не подающий надежды программист, раз на таком застрял..
Благодарю )))

Поверь, я тоже сначла не понимал, но все пришло со временем)

[Lapp]

поменяй тип на риел и постав знак деления...

Я бы не рекомендовал переводить в действительный тип. Это и громоздко, и просто неправильно (если без учета точности вычислений).
Можно так:

var
  a: LongInt;

begin
  ReadLn(a);
  while a mod 3=0 do a:=a div 3;
  WriteLn(a=1)
end.

Добавлено через 2 мин.
Кроме того, не забывайте, что единица тоже есть степень тройки.

[мисс_граффити]

Кроме того, не забывайте, что единица тоже есть степень тройки.

1/3 тоже степень тройки. и корень из 3 - степень. ;)

[Lapp]

1/3 тоже степень тройки. и корень из 3 - степень. ;)

Ну, если так, то программа несколько упрощается и становится такой:

begin
  WriteLn(true)
end.

[мисс_граффити]

Ну, если так, то программа несколько упрощается и становится такой:

begin
  WriteLn(true)
end.

Ты не прав ;)

Footballplayer, какая там полная формулировка задачи? Какие степени рассматриваются? Только натуральные, или целые неотрицательные?

[RathaR]

Footballplayer, какая там полная формулировка задачи? Какие степени рассматриваются? Только натуральные, или целые неотрицательные?

блин, до чего же можна усложнять задачу то ?!
если человек начал проходить цыкл "While" , его задача не заключаеться в том чтобы найти все-все степени 3, а в том чтобы научиться цыкл использовать правильно чему я думаю его уже научили