Р1=2/3 - вероятность появления автобуса №1
р5 =1/3 - вероятность появления автобуса №5
а) I =log2 (3/2) =0,379 бит
б) I=log2 (3) =1,585 бит
в) I = 0,379 бит
Program Turbo;
uses Crt;
var
a,b,r:real;
begin
Write('Введите a и b через пробел: ');
Readln(a,b);
r:=a*b;
Writeln('Произведение равно ',r);
ReadKey
end.
<span><span>Program Zvezda;
Uses GraphABC;
begin
SetBrushColor(clred);
Line(290, 111, 240, 190);
Line(240, 190, 171, 190);
Line(170, 190, 241, 250);
Line(241, 250, 209, 320);
Line(209, 320, 290, 289);
Line(290, 289, 369, 318);
Line(369, 318, 340, 248);
Line(340, 248, 410, 190);
Line(410, 190, 340, 190);
Line(340, 190, 289, 111);
Line(289, 113, 289, 289);
Line(242, 249, 341, 190);
Line(340, 249, 242, 190);
Line(171, 191, 290, 220);
Line(291, 220, 411, 191);
Line(209, 319, 290, 222);
Line(290, 222, 369, 321);
Readln;
Closewindow;
End.</span></span>