program
  factor;

var
  a,x,y,n:integer;
  
begin
  readln(n);
  
  while n>0 do begin
    readln(x);
    y:=0;
    while x>0 do begin
      inc(y,x div 5);
      x:=x div 5;
    end;
    writeln(y);
    dec(n,1);
  end;

end.