Cod sursa(job #39435)

Utilizator botaMihai 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
Raporteaza aceasta sursa 
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.