В некоторой компьютерной игре вам необходимо убивать врагов, получая за это новые уровни. Враги бывают двух видов: обычные и боссы. Чтобы получить - вопрос №1887983

ОТВЕТ 53. 
вот программа расчета
program strocka;uses crt;var stroka: string;    i, k, lic: integer;    beginclrscr;stroka:='EEBEBBBBEBEEBBBEBEBBEEBEBEEEEEEEBBEBBBBEEBBEBBEBEEBBEBEEEBEBEBBEEEBEEEEEEEBEBBEBEBEEBE';lic:=0;k:=0;for i:=1 to length (stroka) dobeginif stroka[i]='B' then begin                      k:=k+1;                      lic:=0;                      end                  else if stroka[i]='E' then begin                                             lic:=lic+1;                                             if lic=2 then begin                                                           lic:=0;                                                           k:=k+1;                                                           end;                                             end;end;writeln ('riven=', k);readln;end.