Вкорзине 15 яблок, 15 груш и 30 слив. сколько бит информации несет сообщение о том, что из корзины извлечена груша?

Using System;

public class MatrixSwap
{
public static void Main()
{
int S = 4;
double[,] D = new double[S,S];
int imax, jmax, imin, jmin, i, j;
double max, min, t;
for (i = 0; i < S; i++)
{
for (j = 0; j < S; j++)
{
Console.Write("D[{0}][{1}] = ", i, j);
D[i,j] = Convert.ToDouble(Console.ReadLine());
}
}
imax = 0;
jmax = 0;
max = D[imax,jmax];
imin = 0;
jmin = 0;
min = D[imin,jmin];
for (i = 0; i < S; i++)
{
for (j = 0; j < S; j++)
{
if (D[i,j] > max)
{
max = D[i,j];
imax = i;
jmax = j;
}
if (D[i,j] < min)
{
min = D[i,j];
imin = i;
jmin = j;
}
}
}
t = D[imin,jmin];
D[imin,jmin] = D[imax,jmax];
D[imax,jmax] = t;
Console.WriteLine();
for (i = 0; i < S; i++)
{
for (j = 0; j < S; j++)
{
Console.Write("{0} ", D[i,j]);
}
Console.WriteLine();
}
}
}

1)

program test1;

var a:string;

i,n,f:integer;

begin

read (a);

n:=length(a);

for i:=1 to n do begin

if (a[i]>='0') and (a[i]<='9')  

 then f:=f+1;

end;

write ('Количество цифр= ',f);

end.

2)

program test1;

var i:integer;

begin

for i:=41 to 50 do

write(i:3);

writeln;

for i:=51 to 60 do

write(i:3);

writeln;

for i:=61 to 70 do

write(i:3);

writeln;

for i:=71 to 80 do

write(i:3);

end.

3)

var s: string;

   i: byte;

   sum,c,k: integer;

begin

sum:=0;

read(s);

for i:=1 to length(s) do

   if s[i] in ['0'..'9'] then

      begin

      val(s[i],c,k);      

      sum:=sum+c;

      end;

writeln('Сумма цифр=',sum);

end.