P(вероятность) синих=10/20=1/2 Тогда N=2 Тогда i (количество информации)=1 (N=2^i)
Pзел= 5/20=1/4 N=4 i=2
Pж=4/20=1/5 N=5 i≈2.32
Pкр=1/20 N=20 i=4.32
Конечно, может и не заработать, но вроде всё в порядке
var a,b,c,d,e,f,g:real;
begin
readln(a,b);
c:=a+b;
d:=c*c;
e:=b*b*b;
f:=a-d-e;
g:=sin(a);
writeln(f/g);
readln;
end.
Блок схемы нарисовал бы, но не с компа сижу
Данное выражение можно упростить:
(3n+√6n)/√3n = 3n / √3n + √6n / √3n = √3n * √3n / √3n + √(6n / 3n) = √3n + √2
Код PascalABC:
Const
Sqrt2 = Sqrt(2);
Function C(n:integer):real;
Begin
result:=Sqrt(3*n)+Sqrt2;
End;
Function Sum(n:integer):real;
Begin
result:=0;
For n:= 1 to n do
result:=result+C(n);
End;
Var
n:integer;
Begin
Write('n = ');ReadLn(n);
WriteLn('x = ',Sum(n))
End.
Пример работы программы:
n = 3
x = 11.4241812374713
Примечание:
Чтобы программа работала на Turbo и Free Pascal, нужно заменить result, на имя функции, в которой он используется.
7 * 1024*8 бит обьем рисунка
7 * 1024*8/64/128 = 7 бит на цвет
2^7 = 128 цветов