Я думаю, это программа для демонстрационного набора слайдов, подготовленных на компьютере.
Program pr;
uses crt;
Var x, y, buf:integer;
Begin
Write('Введите x ');
readln(x);
Write('Введите y ');
readln(y);
if x>y then
Begin
buf:=x;
x:=y;
y:=buf;
end;
Writeln('x = ',x);
Write('y = ',y);
readln;
<span>end.</span>
Количество видов событий: N показывает сколько будет слагаемых. Речь идет о яблоках, грушах и апельсинах, поэтому N=3.<span>Определим вероятности покупки каждого вида фруктов: .</span>Тогда количество информации, которое получит мама после прихода дочки домой, можно рассчитать по формуле Шеннона:<span>Бита.</span>
Var<span> a,f: real;</span><span> n,i,g: integer;</span>begin<span> read(a,n);</span><span> if n<0 then begin</span><span> g:=n;</span><span> n:=-n;</span><span> end;</span><span> f:=1;</span><span> for i:=1 to n do</span><span> f:=a*f;</span><span> if g<0 then write(1/f)</span><span> else write(f);</span><span> readln;</span><span> readln</span><span>end.</span><span> </span>
Мощность алфавита:
2^x=4
x = 2
2 бита.
Всего символов: 2*20*60 = 2400
Информационный размер: 2400*2 = 4800 бит