Дано число а. Проверить является ли оно степенью числа 5. Если явл. вывести номер степени

Question

Информатика

Кеня

18 апреля, 12:30

Дано число а. Проверить является ли оно степенью числа 5. Если явл. вывести номер степени

+1

Ответы (1)

Знаете ответ?

Гораций · Answer 1

Var

a, s, n, k:integer;

begin

readln (a) ;

k:=a;

while a0 do

begin;

if (a mod 50) and (a1) then

begin;

writeln ('No') ;

exit;

end;

a:=a div 5;

end;

n:=0;

s:=1;

while sk do

begin;

s:=s*5;

inc (n) ;

end;

writeln ('Yes,', n) ;

end.