998₁₀→1111100110₂
653₁₀→<span>1010001101</span>₂
В конце программы пропущен end;
И еще не описан массив Dt
Если предположить что исход охоты это всегда 100\% одна птица
То 1 бит. Истина - гусь, ложь - утка
Еще один бит на то что хоть кого то подстрелили либо полная неудача
Истина - подстрелили ; Ложь - охотники придут с пустыми руками
И того 2 бита
Если нужно кодировать и колличесво и разных птицтогда нужно придумать правило кодирования.
[колво гусей][колво уток]
[0..100][0..500]
100 = 1100100 = 7 бит
500 = 111110100 = 9 бит
<span>И того 7+9 = 16 бит</span>
Вот держите:
var n,i,l,m:integer; sum:real;
begin
readln(n);
sum:=1; l:=1;
while m<>n do begin
m:=m+2;
sum:=sum-((1/m)*l);
l:=l*-1;
end;
writeln(sum);
end.
64 символа можно закодировать 6 битами, т.к. 2^6 = 8*8 = 64.
Ответ. 6 бит.