var a,b:integer; {a-число, b-количество знаков числа}
begin
readln(a);
while a<>0 do
begin
b:=b+1;
a:=a div 10;
end;
writeln(b);
end.
ToPoint(1,1);
PenDown;
ToPoint(1,5);
ToPoint(6,5);
PenUp;
ToPoint(6,1);
PenDown;
ToPoint(1,1)
end.
Количество информации можно определить как -log2(p), где p - вероятность данного события. Оно измеряется в битах.
Также можно использовать равносильное выражение log2(1/p)
Вероятность взятия чёрного шара равна 10/20 = 0,5, белого - 4/20 = 0,2, жёлтого такая же - 0,2, красного - в 2 раза меньше - 0,1.
Значит, если мы взяли чёрный шар, мы получили кол-во информации log2(1/0,5) = log2(2) = 1 бит,
если белый, то log2(1/0,2) = log2(5) = 2,3219 бит
если жёлтый, то столько же 2,3219 бит
если красный, то log2(1/0,1) = log2(10) = 3,3219 бит
<span>Чем меньше вероятность события, тем большее количество информации мы получаем, когда это событие наступает. </span>
<span>да мы можем увидеть какие есть деревья ,животные и научиться различать их))</span>
Тут изображен цикл, а мы объявили не с клавиатуры она 256 а б 0
и тут сказано если а = 1 то идем к завершению программы, но пока а!=0
то будет производится вычисления что а будет делится на 2 (8 раз пройдет цикл) а к б будет присваиваться значения его + новое а
к примеру
1) 256/2 = 128 б = 0+128
2)64 192
3)32 224
4)16 240
5)8 248
6)4 252
7)2 254
8)1 - выход
последняя б на выходе будет 254
про спасибо не забудь)
