Cod sursa(job #877732)
| Utilizator |  Marcus Sergiu sergiu.marcus |
Data | 13 februarie 2013 09:16:35 |
|---|---|---|---|
| Problema | Factorial | Scor | 10 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.33 kb |
var n,p:integer; f,g:text;
function fac(n:integer):integer;
var k,s:integer;
begin
s:=0;k:=1;
while k<=n do begin
k:=k*5;
s:=s+(n div k);
end;
fac:=s;
end;
begin
assign(f,'fact.in');reset(f);
assign(g,'fact.out');rewrite(g);
readln(f,p);
n:=0;
repeat
n:=n+5;
until fac(n)=p;
write(g,n);
close(f);
close(g);
end.
