Cod sursa(job #613492)
| Utilizator |  Iulian iu.ciocoiu |
Data | 27 septembrie 2011 22:45:34 |
|---|---|---|---|
| Problema | Factorial | Scor | 5 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.34 kb |
program factorial;
var p,i,nr,aux:longint;
rez:real;
f,g:text;
z:int64;
begin
assign (f,'fact.in'); reset (f);
assign (g,'fact.out'); rewrite (g);
read (f,p);
aux:=1;
nr:=0;
while (aux<=p*5) do begin aux:=aux*5;
nr:=nr+1;
end;
z:=p*5-5*(nr-2);
write (g,z);
close (f);
close (g);
end.
