Дано число а.Проверить является ли оно степенью числа 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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
