program factor; var i,n,f:integer; function fact(a:integer):integer; var b,d5:integer; begin b:=a;d5:=0; while b div 5>0 do begin b:=b div 5;inc(d5,b); end; fact:=d5; end; Begin readln(n); for i:=1 to n do begin readln(f); writeln(fact(f)); end; end.