Var s:string;
k,i:integer;
begin
writeln('vvedite slovo');
readln(s);
for i := 1 to length(s) do
if (s[i]='y') and (i mod 2=0)
then inc(k);
writeln ('k=',k);
readln ;
<span>end.</span>
Ответ:
32 маршрута можно закодировать 3-ех значным двоичным числом т.к. 32 это 2^3.
значит 3 бит.
Не понятно пиши нормально!