13. определить энтропию источника сообщений, если статистика
распределения вероятностей появления символов на выходе источника
сообщений представлена следующей схемой:
a
a
a
a,
0,35 0,035 0,07 0,15 0,07 0,07 0,14 0,035 0,01 0,07
14. дан алфавит, состоящий из 5 символов, вероятности появления
которых равны соответственно: = 0,7; = 0,2; = 0,08; p4= 0,015; ps =
0,005. определить количество информации сообщении, состоящем из 20 символов. каким будет количество информации в данном сообщении,
если все символы будут равновероятны?
скриншоты самих (лучше качество изображения):
огромное тем, кто ! : )

1) чтобы перевести из 2-ой системы в 10-ную нужно каждую цифру умножить на основание системы счисления в степени в какой стоит цифра:

111101(2) = 1 * 2^5 + 1 * 2^4 + 1 * 2^3 + 1 * 2 ^ 2 + 0 * 2 ^ 1 + 1 * 2^0 =

= 32 + 16 + 8 + 4 + 0 + 1 = 61 (10)

2) чтобы перевести число из 10-ой системы в 2-ную нудно делить исходной число на 2 до тех пор пока исходной число не станет меньше 2, остатки от деления записанные в обратном порядке будут результатом

65 : 2 = 32(ост. 1)

32 : 2 = 16(ост. 0)

16 : 2 = 8(ост. 0)

8 : 2 = 4(ост. 0)

4 : 2 = 2 (ост. 0)

2 : 2 = 1 (ост. 0)

65(10) = 1000001(2)

1) 

var

s: string;

begin

s: ='пробел';

writeln(s);

delete(s,4,1);

insert('д',s,4);

writeln(s);

end.

2)

var

i: integer;

a,b: string;

begin

readln(a);

b: ='';

for i: =1 to length(a) do

b: =b+a[i]+' ';

writeln(b);

end.

3)

var

a: string;

begin

readln(a);

if a[2]=a[4] then writeln('равны')

else  writeln('не равны');

end.

стены, ученики, террористы(учителя : d), парты ии т.д.

разрушить : d,

var

a,b: integer;

begin

write('введите в одной строке два целых числа и нажмите < enter> ');

readln(a,b);

if a=b then writeln('числа равны')

else 

if a> b then writeln(a,' больше')

else writeln(b,' больше')

end.