Вмешке находятся 20 шаров из них 15 белых и 5 красных какое количество информации несет сообщение о том что достали а) белый шар б) красный

а)-log2(3/4) = -log2 3 + log2 4 = 1,586 - 2 =  0,414 бит

б) -log2(1/4) = ) = 2 бит

function max (x,y : longint) : longint; begin  if x> y then max: =x else max: =y; end; var k : longint; s : string; begin  readln(s);   while (pos('.',s)< > 0)or(pos('! ',s)< > 0)or(pos('? ',s)< > 0) do

begin    k: =k+1;

    delete(s,max(max(pos('.',s),pos('! ',('? ',); end;   writeln(k); end.

аx2+c=0

аx2=-с

х=-с/а

если -с/а меньше 0, корней нет

есла -с/а равно 0, то х=0

если -с/а больше 0,х=+-корень из -с/а