program
  factor;

var
  a,x,n:longint;
  cnt5,cnt2:longint;
  
procedure
  nulls(x:longint);
begin
  while x mod 5=0 do begin
    x:=x div 5;
    inc(cnt5);
  end;
  while x mod 2=0 do begin
    x:=x div 2;
    inc(cnt2);
  end;
end;

begin
  readln(n);
  
  while n>0 do begin
    readln(x);
    cnt5:=0;
    cnt2:=0;
    a:=1;
    while a<x do begin
      inc(a);
      nulls(a);   
    end;
    if cnt5<cnt2 then begin
      writeln(cnt5);
    end else begin
      writeln(cnt2);
    end;
    dec(n,1);
  end;

end.