Является ли заданное число степенью числа 3; числа 5

[maksim97maksim]

Определить:
Являеться ли заданное число степенью числа 3; Являеться ли заданное число степенью числа 5;

program z6q76z;
uses crt;
var
x,p,z:longint;
begin
write('Введите x= ');
readln(x);
p:=x;
while p<x do
p:=p*3;
while p<z do
p:=p*5;
writeln('Являеться ли заданное число степенью числа 3');
writeln(p=x);
writeln('Являеться ли заданное число степенью числа 5');
writeln(p=z);
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[ZX Spectrum-128]

http://el-prog.narod.ru/pascal39.html

[Serge_Bliznykov]

Сообщение от ZX Spectrum-128

http://el-prog.narod.ru/pascal39.html

Насколько я понимаю, эти выкладки справедливы только для степеней числа 2...
Не думаю, что для проверки числа 3 и 5 нужно использовать данных аппарат.
Я бы просто делил заданное число, пока остаток от деления равен нулю и число больше единицы. Получилось разделить - бинго! Число является степенью числа 3 (или 5)

примерно так:

program z6q76z;
var
  x, p: longint;
begin
  write('Введите x= ');
  readln(x);
  p := x;
  while (p > 1) and ((p mod 3) = 0) do
    p := p div 3;

{вывод результата}
  write('заданное число ', x );
  if p = 1 then write(' является') else write(' не является');
    writeLn(' степенью числа 3');

  p := x;
  while (p > 1) and ((p mod 5) = 0) do
    p := p div 5;

{вывод результата}
  write('заданное число ', x );
  if p = 1 then write(' является') else write(' не является');
    writeLn(' степенью числа 5');

end.

[ZX Spectrum-128]

Надо было написать, что в конце статьи программа и алгоритм, а все, что выше, не читать. Учту на будущее, спасибо.

[maksim97maksim]

Большое СПАСИБО за помощь.

[Serge_Bliznykov]

Пожалуйста!

p.s. надеюсь, Вы с алгоритмом разобрались.
В качестве доп.вопроса - подумайте, как можно изменить программу, чтобы она не только сообщало, является ли число степенью числа 3 (5), но и в том случае, если является - выводила степень (т.е. в какую степень нужно возвести число 3, чтобы получить заданное число X)