14. из кошелька с восьмью монетами взяли наугад одну монету. она оказалась достоинством в 1 рубль. и это событие содержит 2 бита информации. сколько в кошельке рублевых монет? 15.в корзине лежат белые и черные шары. белых четыре штуки. сообщение о том, что достали белый шар, несет 3 бита информации. сколько всего шаров в корзине?

14. мне кажеться, что в кошельке было две монеты   по одному рублю.

15.   два,вроде бы.

родителей пытала хд

удачи,что ль : )

var

  n,i,z: integer;

begin

  readln(n);

for i: =1 to n do if n mod i=0 then inc(z,i);

writeln(z);

end.

program zadacha2;

  uses crt;

  var i,n,a: integer;

            b,y,c,l: real;

begin

clrscr;

readln(n);

  a: =1;

  b: =2;

  c: =5;

  for i: =1 to n do                                                                                          

                                                                                                  begin  

if a mod 2 = 0 then

l: =a+b/c

else          

l: =a-b/c;

a: =a+1;

b: =b+2;

c: =c+5;

y: =y+l;

                                                                                                    end;

writeln(y: 2: 2);

readkey;

  end.

первую по подробней расспишите