Ответ: а)3
Решение:
i=1
A[2*1-1]:=1; (A[1])
A[2*1]:=1; (A[2])
__________________
i=2
A[2*2-1]:=2; (A[3])
A[2*2]:=4; (A[4])
__________________
i=3
A[2*3-1]:=3; (A[5])
A[5]=3
а)-log2(3/4) = -log2 3 + log2 4 = <span>1,586 - 2 = 0,414 бит</span>
Так, для начала узнаем сколько всего символов в тексте, для этого перемножаем количество страниц, количество строк и символов в строке 150*35*50 = 262500 (общее количество символов), потом переводим скорость в байты 19200/8=2400. И делим 262500 на 2400 и получаем 109,375, так как ответ нужен целым числом, округляем и получаем 110. Надеюсь помог)
Program z3;
var A:array[1..3] of string;
var B:array[1..3] of string;
i,k:byte;
begin
writeln('Ввод названий газет: ');
for i:=1 to 3 do begin write('[',i,']');readln(A[i]); end;
writeln('Ввод подписчиков: ');
for i:=1 to 3 do begin write('[',i,']'); readln(B[i]); end;
for i:=1 to 3 do begin
if (A[i]='правда') and (B[i]= 'петров') then begin k:=i;
writeln('Да, Петров выписывает газету ',A[i]); end;
end;
end.
Ввод названий газет:
[1]Книга
[2]Правда
[3]Вера
Ввод подписчиков:
[1]Библиотекарь
[2]Петров
[3]Гундяев
Да, Петров выписывает газету Правда