Решите камера делает фотоснимки размером 1024*768 пикселей. на хранение одного кадра отводится 900 кбайт. найдите максимальное возможное колличество цветов в
Количество информации можно определить как -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 бит
Чем меньше вероятность события, тем большее количество информации мы получаем, когда это событие наступает.
Суть в том, что переводишь число в строковый формат и далее работаешь с ним как с одномерным массивом (чем и является по сути строка). Во внешнем цикле выбирается по порядку от 1 до (длина строки -1, т.е. до предпоследнего) цифра числа. Во внутреннем цикле эта цифра сравнивается с каждой последующей по-порядку до тех пор пока не найдется одинаковая. Если нашлась, то выход из цикла. Из внешнего цикла так же предусмотрен выход если нашлась пара равных цифр. program z1; var n: int64; l: integer; s: string; i, j: byte; x: boolean; begin writeln ('введите число'); readln (n); Str(n,s); l:=length(s); x:=false; for i:=1 to l-1 do begin for j:=i+1 to l do begin if s[i]=s[j] then begin x:=true; break; end; end; if x=true then break; end; writeln (x); end.
