Cod sursa(job #602529)
Utilizator | Cont vechi Buzu_Tudor_Ro | Data | 11 iulie 2011 19:08:30 |
---|---|---|---|
Problema | Factorial | Scor | 90 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.87 kb |
Program P1;
var n,m,s,nr : longint;
fi,fo : text;
begin assign(fi,'fact.in'); reset(fi); readln(fi,nr); close(fi);
assign(fo,'fact.out'); rewrite(fo);
if nr<1 then write(fo,'1') else begin
s:=0;
n:=2*nr+2;
if nr>=10 then n:=4*nr
else if nr>=4 then n:=4*n+1;
while s<>nr do begin
m:=5;
s:=0;
n:=n+1;
while m<=n do begin
s:=s+(n div m);
m:=5*m
end;
end;
write(fo,n);
end;
close(fo);
end.