Вящике лежат 36 красных и несколько зеленых яблок. сообщение «из ящика достали зеленое яблоко» несет 2 бита информации. сколько яблок в ящике?

по фоpмуле хаpтли количество инфоpмации в битах = -log_2 p, где p --  веpоятность события. стало быть, в данном случае веpоятность вытащитьзеленое яблоко pавна 1/4. то есть 1/4 всех яблок -- зеленые (а оставшиеся 3/4 - кpасные). следовательно, всего яблок -- 48.

Var a,b,c,n: integer; begin write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); write('n='); readln(n); if a mod n = 0   then writeln('число ',a,' кратно ',n) else writeln('число ',a,' не кратно ',n); if b mod n = 0   then writeln('число ',b,' кратно ',n) else writeln('число ',b,' не кратно ',n); if c mod n = 0   then writeln('число ',c,' кратно ',n) else writeln('число ',c,' не кратно ',n); end. пример: a=10 b=12 c=27 n=4 число 10 не кратно 4 число 12 кратно 4 число 27 не кратно 4

//pascal   var a,b, i, maxsumm, max : integer;     function summdel(x: integer): integer; //результат - сумма делителей х   var k,sum: integer;   begin       sum: =0;       for k : = 1 to x div 2 + 1 do           if x mod k = 0 then sum: = sum+k;       summdel: =sum;   end;     begin     writeln('введите границы a,b ');     readln(a,b);       maxsumm : = 1;       max : = 1;       for i : = a to b do         begin               if summdel(i) > maxsumm then                   begin maxsumm: = summdel(i);                       max : = i;                   end;         end;         writeln('максимальная сумма делителей - ', maxsumm, ' число - ',max)   end.