Есепті шешу процесінде өзгермейтін шама?​

program qwerty; uses crt; var a: real; beginclrscr; writeln('введите количество миль'); readln(a); a: = a*1.6; writeln('кол-во киллометров - ',a: 2: 2); readkey; end.

i = log₂ (1/p)

log₂ (1/p) = 4

1/p = 2⁴

1/p = 16

p = 1/16 вероятность появления автобуса n1

вероятность появления автобуса n2: р = 1/16 : 2 = 1/32

i = log₂ (1/1/32) = log₂ 32

i = 5 бит

5 бит информации несет сообщение о появлении автобуса n2.

n = 64 - 32 = 32

i = log₂ 32 = 5 бит

количество вопросов, которые нужно задать равно 5

в цикле sum [i]: =sum+mas[i,j];