program
  factor;

var
  a,x,y,n:integer;
  cnt5,cnt2:integer;
  
begin
  readln(n);
  
  while n>0 do begin
    readln(x);
    cnt5:=0;
    cnt2:=0;
    a:=1;
    while a<x do begin
      inc(a);
      y:=a;
      while y mod 5=0 do begin
        y:=y div 5;
        inc(cnt5);
      end;
      while y mod 2=0 do begin
        y:=y div 2;
        inc(cnt2);
      end;  
    end;
    if cnt5<cnt2 then begin
      writeln(cnt5);
    end else begin
      writeln(cnt2);
    end;
    dec(n,1);
  end;

end.