Сколько количества информации несет сообщение, уменьшающее неопределенность знаний человека в 2 раза? * а)1 мбит б)0,1 бит в)1 бит г)0,25 бит

2 var  3 s: string;   4 begin  5  readln(s); 6  while  pos('с',s)> 0  do  delete(s,pos('с',s),1); 7writeln(s);   8 end.это точно

const

  a: array[1..6]of longint=(7,4,10,6,5,3);

var

  i: longint;

begin

for i: =1 to 6 do  write(9.8*a[i]*1200,' ');

writeln;

end.