Cod sursa(job #569027)
| Utilizator |  Stern Vlad sternvlad |
Data | 31 martie 2011 21:48:44 |
|---|---|---|---|
| Problema | Factorial | Scor | 10 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.33 kb |
program das;
var n,i,p,j:longint;
f,g:text;
s:word;
begin
assign (f,'fact.in');
reset (f);
read (f,n);
i:=1;
s:=0;
while s<>n do begin
j:=i;
while j mod 5=0 do begin s:=s+1;
j:=j div 5;
end;
i:=i+1;
end;
assign (g,'fact.out');
rewrite (g);
write (g,i-1);
close (g);
end.
