1)жители 1 планетыиспользуюталфавитиз256знаком, жители 2 планетыиспользуют из 128 знаков.для жителей какой планеты сообщение из 10 знаков несет больше информации и на сколько?

Жители  1  планеты  используют  алфавит  из  256  знаком, 256=2^8; на 1 знак - 8 бит.жители  2  планеты  используют  из 128  знаков. 128=2: 7; на 1 знак - 7 бит.для  жителей  какой  планеты  сообщение из 10  знаков  несет больше информации 10*8 бит = 80 бит, 10* 7 бит=70 бит, д ля  жителей первой планеты  сообщение из 10  знаков  несет больше информации  и на сколько? 80 бит - 70 бит = 10 бит.

Begin   var a: array [0..99] of integer;   var i, k: integer;   write('[ ');   for i : = 0 to 99 do   begin     a[i] : = random(64);     write(a[i], ' ');   end;   writeln(']');   for i : = 0 to 49 do   begin     k : = a[i];     a[i] : = a[99 - i];     a[99 - i] : = k;   end;   write('[ ');   for i : = 0 to 99 do     write(a[i], ' ');   writeln(']'); end.

Вариант 1 var  str: string;   a,b,i: integer;   begin     write('введите ваш текст');     readln(str);     for i: =1 to length(str) do begin       if (str[i]='а')or (str[i]='а') then a: =a+1;       if (str[i]='б')or (str[i]='б') then b: =b+1;     end;     if (a+b)=0 then write('нет таких букв') else write ('a= ',a,' б= ',b); end. вариант 3var  str: string;   a,b,i: integer;   begin    write('введите ваш текст');     readln(str);     i: =1;     while i< =length(str) do begin    if (str[i]='а')or (str[i]='а') then delete(str,i,1);     i: =i+1;     end;     write(str);       end.