Текст сообщения содержащего 100 символов, весит 700 бит. какова мощность используемого алфавита.

определим количество бит, приходящихся на 1 символ:

700 / 100 = 7 (бит)

по обратной формуле хартли определяем количество символов в алфавите:

        n= 2i = 2⁷ = 128 символов

 

пс. не гарантирую что всё правильно 

 

Const n = 30; // количетсво дней var i,count: integer; h: array [1..n] of integer; begin count: =0; writeln('введите количество осадков'); for i: =1 to n do read(h[i]); for i: =1 to n do if h[i]> 0 then count: =count+1; writeln('количество дождливых дней ', count) end. в первой строке указываем количество дней. это константа n далее объявляем, что переменная count равна 0. в этой переменной мы будем хранить количество дней с осадками. далее мы вводим с клавиатуры 30 чисел, показывающих осадки. потом мы проверяем, если число в массиве больше нуля, то мы увеличиваем count на единицу. тоесть прибавляем +1 день с осадками. в конце выводим количество дней с осадками

Beginvar x1, x2, x3, x4, y1, y2, y3, y4: double;   writeln('введите x1');   readln(x1);   writeln('введите x2');   readln(x2);   writeln('введите x3');   readln(x3);   writeln('введите x4');   readln(x4);     writeln('введите y1');   readln(y1);   writeln('введите y2');   readln(y2);   writeln('введите y3');   readln(y3);   writeln('введите y4');   readln(y4); if((y1-y4=y2-y3) and (x2-x1=x3-x4)) thenwriteln('abcd - параллелограмм')else writeln('abcd - не параллелограмм'); end.