program factor; var a,x,n:longint; cnt5,cnt2:longint; procedure nulls(x:longint); begin while x mod 5=0 do begin x:=x div 5; inc(cnt5); end; while x mod 2=0 do begin x:=x div 2; inc(cnt2); end; end; begin readln(n); while n>0 do begin readln(x); cnt5:=0; cnt2:=0; a:=1; while a