Частота появления букв алфавита равна: буква а – 0,062, буква р – 0,04, буква у – 0,021, буква ж – 0,007. определить какое количество информации несет каждая буква алфавита.

1мб/2=512 кб на одну страницу

512*1024*8=4194304 бит на одну страницу

800*600=480 000 пискселей на одну страницу

4194304/480 000=8,74 бит на 1 пиксель, округляем в меньшую сторону по битам=8

2⁸=256 количество цветов можно использовать

с2н6+cl2=c2h5сl+hcl

с2н6-этан

с2н5cl- хлорэтан или хлористый этил

program xxx;

  var i, j, k, min : integer;

              a: array[1..10, 1..20] of integer;

              b: array[1..10] of integer;

begin

    for i: =1 to 10 do

        for j: =1 to 20 do

              readln(a[i,j]);

    for i: =1 to 10 do

      begin

        b[i]: =0;

        for j: =1 to 20 do

            b[i]: =b[i]+a[i,j];

      end;

    min: =b[1]; k: =1;

    for i: =2 to 10 do

        if b[i]< min then begin max: =b[i]; k: =i end;

    writeln('наименьшая сумма элементов =', min);

    writeln('она находится в строке -', k);

    readln

end.

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

program string_7; var s: string; k,l,i: integer; begin write('введите строку: '); readln(s); k: =0; l: =0; for i: =1 to length(s) dobegin if s[i]='н' then k: =k+1; if s[i]='м' then l: =l+1end; writeln('н=',k); writeln('м=',l); if k> l then writeln ('больше букв н'); if k< l thenwriteln ('больше букв м'); if (k = 0) and (l = 0) thenwriteln ('таких букв нет'); end.

так будет элсе выкидывало бы что букв н больше, если бы ни м ни н не встретилось))