Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад