Pagini recente » Cod sursa (job #2037689) | Cod sursa (job #2810963) | Cod sursa (job #2548048) | Cod sursa (job #1929896) | Cod sursa (job #290188)
Cod sursa(job #290188)
{Se da numarul 'P'. Sa se afle cel mai mic 'n' care indeplineste conditia ca
N! sa aiba 'p' 0 la sfarsit}
var n,p:longint;
ok:boolean;
f:text;
function catizero(x:longint):longint;
var k:longint;
begin
k:=0;
while x mod 5 = 0 do
begin
Inc(k); x:=x div 5;
end;
catizero:=k;
end;
function nfact(x:longint):longint;
var k,suma:longint;
begin
k:=5; suma:=0;
while k<=x do
begin
suma:=suma+catizero(k);
Inc(k,5);
end;
nfact:=suma;
end;
begin
assign(f,'fact.in'); reset(f);
n:=0; ok:=false;
read(f,p); close(f);
Assign(f,'fact.out'); rewrite(f);
while ok=false do
begin
Inc(n);
if nfact(n)=p then begin write(f,n); ok:=true; end;
end;
close(f);
end.