Один из самых простых 1221 (7+3*2*2+3)=43
Если предположить что исход охоты это всегда 100\% одна птица
То 1 бит. Истина - гусь, ложь - утка
Еще один бит на то что хоть кого то подстрелили либо полная неудача
Истина - подстрелили ; Ложь - охотники придут с пустыми руками
И того 2 бита
Если нужно кодировать и колличесво и разных птицтогда нужно придумать правило кодирования.
[колво гусей][колво уток]
[0..100][0..500]
100 = 1100100 = 7 бит
500 = 111110100 = 9 бит
<span>И того 7+9 = 16 бит</span>
К пиктограмме.
а) Тут копают
б) Осторожно, забор!
в) Лестница
г) Нельзя сюда!
д) Второстепенная дорога
е) Там тупик (забыла название)
ж) Место для солнцезащитных очков (Очень ярко! - не помню лол)
1024×400=409600 байт
409600÷50=8192байта/с
8192×30=245760байт=240Кбайт
Var
fullstr,s,s_int,s_rl,s_str: string;
int: integer;
rl: real;
space,err: integer;
begin
writeln('String:');
readln(fullstr);
while fullstr[1] = ' ' do
delete(fullstr,1,1);
while fullstr[length(fullstr)] = ' ' do
delete(fullstr,length(fullstr),1);
while pos(' ',fullstr) <> 0 do
delete(fullstr,pos(' ',fullstr),1);
s_int := '';
s_rl := '';
s_str := '';
while fullstr <> '' do begin
space := pos(' ',fullstr);
if space = 0 then
space := length(fullstr) + 1;
s := copy(fullstr,1,space-1);
val(s,int,err);
if err = 0 then
s_int := s_int + s + ' '
else begin
val(s,rl,err);
if err = 0 then
s_rl := s_rl + s + ' '
else
s_str := s_str + s + ' ';
end;
delete(fullstr,1,space);
end;
writeln('Integers: ',s_int);
writeln('Real: ',s_rl);
writeln('Words: ',s_str);
readln
end.