Cod sursa(job #714991)
| Utilizator |  Barbu Laura lauramaria |
Data | 16 martie 2012 13:56:05 |
|---|---|---|---|
| Problema | Factorial | Scor | 5 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.33 kb |
program factorial;
var n,p,i,j,i1,ap,k1,k2,k:longint;
f,g:text;
begin
assign(f,'fact.in');
reset(f);
read(f,p);
close(f);
assign(g,'fact.out');
rewrite(g);
j:=0;i:=0;ap:=0;
i:=p*5;
k:=25; k1:=k; k2:=k;
while k1<=i do
begin
k:=k div 5;
ap:=ap+k-1;
k1:=k1*5;
end;
ap:=ap*5;
write(g,i-ap);
close(g);
end.
