Cod sursa(job #1087789)
| Utilizator |  Cristina Cristinutaa |
Data | 19 ianuarie 2014 21:15:51 |
|---|---|---|---|
| Problema | Factorial | Scor | 5 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.29 kb |
var f,g:text; p,n,m,s,i:longint;
begin
assign(f, 'fact.in');
assign(g, 'fact.out');
reset(f);
rewrite(g);
readln(f,p);
n:=0; m:=1; s:=1;
for i:=1 to p do
s:=s*10;
while m mod s<>0 do
begin
inc(n);
m:=m*n;
end;
write(g, n);
close(f); close(g);
end.
