program factor;

var t,n,k:longint;
    d1,d2,d3,d4:longint;

begin
   readln(t);
   for k:=1 to t do begin
       readln(n);d3:=0;d4:=0;
       d1:=n;
       while (d1>1) do begin
           inc(d3,d1 div 2);d1:=d1 div 2;
       end;
       d1:=n;
       while (d1>1) do begin
           inc(d4,d1 div 5);d1:=d1 div 5;
       end;
       if (d3>d4) then writeln(d4) else writeln(d3);
   end;
end.