15+1=16 - общее число шаров в корзине
1/16 - вероятность того, что достали черный шар
-log2(1/16)=4 бита информации
3) 45
4)
Program z4; Var b,a,i,m:integer; Begin read(b);for i:=1 to b do beginread(a);if a>0 and (a mod 2 = 0 )then m:=m+a; end;writeln(m);End.
var a:array[1..100]of integer;
i,s,n:integer;
c:boolean;
begin
readln(n);
for i:=1 to n do readln(a[i]);
s:=1;
for i:=1 to n do
if (a[i]<0)and(a[i] mod 2=0) then begin s:=s*a[i]; c:=true; end;
if c then writeln(s) else writeln(0);
end.
Var n,i,b:integer;beginreadln(n,i,b);if(n>=i)and(n>=b)and(i>=b)then writeln(n,i,b); if(n<=i)and(n<=b)and(i<=b)then writeln(b,i,n);if(n>=i)and(n<=b)and(i<=b)then writeln(b,n,i);if(n<=i)and(n>=b)and(i>=b)then writeln(i,n,b);if(n>=i)and(n>=b)and(i<=b)then writeln(n,b,i);if(n<=i)and(n<=b)and(i>=b)then writeln(i,b,n);end.
Program z1;
var a,b:integer;
begin
writeln('ведите числа-э);
readln(a,b);
if a>b then
begin
a:=a-1;
end;
writeln('a=',a);
end. усё....