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.