var dlzka, usekov, vysl, pocet : integer; kkk, llll, kolko, aktus : integer; zatdos : double; odsekol : boolean; begin readln(pocet); for llll:=1 to pocet do begin readln(dlzka, usekov); zatdos:=0; kolko:=0; vysl:=0; for kkk:=1 to usekov do begin readln(aktus); kolko:=aktus; if zatdos<>0 then begin kolko:=kolko-trunc(zatdos); zatdos:=zatdos-trunc(zatdos); end; odsekol:=false; if zatdos>0 then begin dec(kolko); odsekol:=true; zatdos:=1-zatdos; end; vysl:=vysl+ (kolko div dlzka); kolko:=kolko mod dlzka; if odsekol then zatdos:=zatdos+kolko else zatdos:=kolko; if (kkk=usekov)and(zatdos>dlzka/2) then inc(vysl); zatdos:=sqrt(dlzka*dlzka-zatdos*zatdos); if kkk<>usekov then inc(vysl); end; writeln('Strazny ujde ',vysl,' ponorku.'); end; end.