Cod sursa(job #601472)
Utilizator | Cont vechi Buzu_Tudor_Ro | Data | 6 iulie 2011 19:37:37 |
---|---|---|---|
Problema | Factorial | Scor | 80 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.84 kb |
Program P1;
var n,m,s,nr : qword;
fi,fo : text;
begin
assign(fi,'fact.in'); reset(fi); readln(fi,nr); close(fi);
assign(fo,'fact.out'); rewrite(fo);
s:=0; n:=2*nr+2;
if (nr<=9) and (nr>4) then n:=4*nr-1
else if nr>99999999 then n:=nr*4+14
else n:=nr*4+4;
if n>2 then begin while s<>nr do begin
m:=5; s:=0; n:=n+1;
while m<=n do begin
s:=s+ (n div m) ;
m:=m*5;
end;
end;
writeln(fo,n);
end
else writeln(fo,'1');
close(fo);
end.