Cod sursa(job #625128)
| Utilizator |  UBB-Cartis-Muresan Horea94 |
Data | 23 octombrie 2011 19:37:16 |
|---|---|---|---|
| Problema | Factorial | Scor | 20 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.34 kb |
var f:text;
a,k,q,p:integer;
begin
assign(f,'fact.in');
reset(f);
read(f,p);
close(f);
k:=5;
repeat
a:=k;
repeat
if a mod 5=0 then
begin
q:=q+1;
a:=a div 5;
end;
until a mod 5<>0;
k:=k+5;
until q>=p;
assign(f,'fact.out');
rewrite(f);
if p=0 then write(f,1);
if q=p then write(f,k-5);
if q>p then write(f,-1);
close(f);
end.