Cod sursa(job #360891)
| Utilizator |  Ionita Bogdan Constantin bodyionita |
Data | 2 noiembrie 2009 19:03:23 |
|---|---|---|---|
| Problema | Factorial | Scor | 10 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.31 kb |
var p,i,j,n,nr:longint;f,g:text;
begin
assign(f,'fact.in');reset(f);
assign(g,'fact.out');rewrite(g);
read(f,p); i:=4;if p=0 then write(g,'1') else begin
repeat
inc(i);
n:=1;nr:=0;
for j:=1 to i do
n:=n*j;
while n mod 10=0 do begin
inc(nr);
n:=n div 10;end;
until nr=p;
write(g,i);
end;close(g);
end.
