Можешь мини-коимикс зделать, думаю пойдет :)
1)i=log(1/p)
i-кол-во инф-ии
p-вероятность вытаскивания зел.шара. Всего 30+10=40 шаров
р(зел)=10/40=0,25, подставляем в формулу
<span>i=log(1/0,25)=2 бита
2)Мощность алф.=26+10=36, </span><span>i(вес 1 символа)=6, 6*5=30 бит -1номер, а это =4 байта (округляем в больш. сторону до 32, т.к. 32/8(бит в 1 байте)=4),
</span>40*4=160 байт на 40 номеров.
Program n1;
const n=10;
var a: array[1..n] of integer;
i,num,kt: integer;
begin
randomize;
kt:=0;
num:=0;
for i:=1 to n do
begin
a[i]:=random(25)-12;
write(a[i],' ');
end;
for i:=1 to n do if a[i] mod 5=0 then begin
num:=i;
kt:=kt+1;
if kt=2 then break;
end;
writeln;
write(num);
end.
Итак, треугольник может существовать, если сумма длин двух его сторон больше третий стороны.
Алгоритм такой:
Принимаем значения a b c
Если(a + b < c или a + c < b или c + b < a)
Вернуть ложь
Иначе
Вернуть истину
Если я правильно поняла задачу и нужно из двоичного числа перевести в десятичное, то ответ 231