Question

Ввести натуральное число `n`. Определить, является ли оно степенью числа `5`. Программа должна вывести ответ в виде «yes | no».

Answer 1

Чтобы гарантировать отсутствие ошибок от действий с вещественными числами, будем работать исключительно с целыми. Нам необходимо последовательно вычислять степени числа `5` и остановиться, когда мы получим степень, которая больше или равна введённому числу. Далее останется только сравнить на точное равенство. Приведём код программы.

var n,m:integer;

begin

readln(n);

 m := 1;

while (m < n) do m := m*5;

if m = n

then writeln('yes')

else writeln('no');

end.