program complete;

function Z(A: Integer): Integer;
  begin
    if A < 25 then begin
      Z := A div 5;
    end else begin
      Z := A div 5 + Z(A div 5);
    end;
  end;

var
  n, m:Integer;
  
begin
  readln(n);
  while (n > 0) do begin
    dec(n);
    readln(m);
    writeln(z(m));
  end;
end.