Cod sursa(job #39435)
| Utilizator |  Mihai Botezatu Catalin bota |
Data | 26 martie 2007 18:50:34 |
|---|---|---|---|
| Problema | Factorial | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.35 kb |
var n,m,i,j,p,h,aux,c:longint;
k,l:text;
begin
assign(k,'factorial.in');
reset(k);
assign(l,'factorial.out');
rewrite(l);
read(k,p);
close(k);
repeat
j:=0;
n:=n+1;
h:=1;
for i:=1 to n do
h:=h*i;
aux:=h;
repeat
c:=aux mod 10;
aux:=aux div 10;
if c=0 then j:=j+1;
until (c<>0)or(aux=0)
until j=p;
writeln(l,n);
close(l);
end.
