program Fa(input,output);

var z, PocetZ : integer;
    x, n, pocet : integer;
    

begin

  readLn(PocetZ);
  
  for z:=1 to pocetZ do begin
    Readln(n);
    pocet:=0;
    while n>0 do begin
      n:=n div 5;
      pocet:=pocet+n;
    end;
    WriteLn(pocet);
  end;

end.