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

[Footballplayer]

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

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

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

[RathaR]

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

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

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

эм...а разве тут могут быть проблемы? или число "длинное"? если нет, то в цикле делишь его на 3 до тех пор пока результат не станет меньше или равным 3,тогда проверяеш, равен ли он 3, если да то диствительно степень....

Добавлено через 5 мин.

program Stepen;
var
        I:integer;
begin
read(I);
while I>3 do
I:=I div 3;

if I=3 then write('STEPEN') else write('Ne stepen');
end.

[Footballplayer]

эм...а разве тут могут быть проблемы? или число "длинное"? если нет, то в цикле делишь его на 3 до тех пор пока результат не станет меньше или равным 3,тогда проверяеш, равен ли он 3, если да то диствительно степень....

Добавлено через 5 мин.

program Stepen;
var
        I:integer;
begin
read(I);
while I>3 do
I:=I div 3;

if I=3 then write('STEPEN') else write('Ne stepen');
end.

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