program factor;
var i,j,n,x,xx,sum:longint;
begin
  readln(n);
  for i:=1 to n do
  begin
    readln(x); xx:=x; sum:=0;
    while (xx>=1) do
    begin
      sum:=sum+(xx div 5);
      xx:=xx div 5;
    end;
    writeln(sum);
  end;
end.