Шары Р- вероятность 1 / Р I =log(1/P) бит P * I
по осн 2
35 7/24=0,29 24/7=3,4 1,77 0,29*1,77=0,51
25 5/24 =0,21 24/5=4,8 2,26 0,21*2,26= 0,47
15 3/24=1/8=0,125 8 3 0,125*3=0,375
45 3/8 =0,375 8/3 =2,67 1,42 0,375*2,67= 1,00
Сумма 1 2,355 бит - ответ
1 поколение
1946-1958
электронные лампы-диоды и триоды
2 поколение
1958-1964
полупроводниковые транзисторы
3 поколение
1964-1972
мис
4 поколение
1972 по наст. время
бис
S(пока S больше или равно нулю начинай)
701-70
631-70
561-70
491-70
421-70
351-70
281-70
211-70
141-70
71-70
1-70
-69
N при этом
7+1
8+1
9+1
10+1
11+1
12+1
13+1
14+1
15+1
16+1
17+1
18
N=18
наверное как-то так
program tz;
var
a,b:integer;
i:byte;
begin
writeln('vvedite 4x znachnoe chislo');
readln(a);
b:=1;
for i:=1 to 4 do begin
b:=b*(a mod 10);
a:=a div 10
end;
if (b mod 4) = 0 then
writeln(b,' Kratno 4')
else
writeln(b,' Ne kratno 4');
readln;
end.