Дано число а.Проверить является ли оно степенью числа 5.Если явл. вывести номер степени
Дано число а.Проверить является ли оно степенью числа 5.Если явл. вывести номер степени
Гость
Ответ(ы) на вопрос:
Гостьvar
a,s,n,k:integer;
begin
readln(a);
k:=a;
while a<>0 do
begin;
if (a mod 5<>0) and (a<>1) then
begin;
writeln('No');
exit;
end;
a:=a div 5;
end;
n:=0;
s:=1;
while s<>k do
begin;
s:=s*5;
inc(n);
end;
writeln('Yes,',n);
end.
Не нашли ответ?
Похожие вопросы