program factor;
var noc, cs, cislo, pn: longint;
    
begin
readln(noc);
for cs := 1 to noc do
   begin
     readln (cislo);
     
     { inicializacia }
     pn := 0;
     while cislo > 0 do
     begin
         cislo := cislo div 5;
         inc (pn, cislo)
     end;
     
     { vystup }
     writeln (pn)
     
   end
end.