Некоторый алфавит содержит 32 символов. каков информационный вес символов этого алфавита? какое количество информации несет сообщения состоящее из 140 симв. этого алфавита?
Var N, i, P, O, Z : Integer; R : Real; begin Write('n = '); ReadLn(N); P := 0; O := 0; Z := 0; // для for // для while // для repeat for i := 1 to N do // i := 0; // i := 0; // while i < N do // repeat begin // begin // Inc(i) // Inc(i); Write(i, ' число = '); ReadLn(R); case sign(R) of +1 : Inc(P); -1 : Inc(O); 0 : Inc(Z); end; end; // end; // until i = N; WriteLn('Процент положительных чисел: ', P*100/N); WriteLn('Процент отрицательных чисел: ', O*100/N); WriteLn(' Процент нулевых чисел: ', Z*100/N); end.
var a: array[1..nmax] of integer; i, n, j, count: integer; mini, maxi: integer; min, max: real; temp: real; sum, product, harmonic: real; k: integer;
begin {ввод массива} n := nmax; if handsfree then n := random(nmax - 5) + 5 else begin write('n = '); readln(n); end;
writeln('Данные массива:'); for i := 1 to n do begin if handsfree then begin a[i] := random(random_max - random_min) + random_min; write(a[i], ' '); end else readln(a[i]); end; writeln();
{подсчет суммы и произведения и агригатов и кол-ва} sum := 0; product := 1; for i := 1 to n do begin sum := sum + a[i]; if a[i] mod 3 = 0 then {если нужен фильтр} product := product * a[i]; end; writeln('1) sum = ', sum); writeln('2) product = ', product);
{подсчет суммы и произведения и агригатов и кол-ва} sum := 0; count := 0; for i := 1 to n do begin if i mod 2 = 1 then {если нужен фильтр} begin count := count + 1; sum := sum + a[i]; end; end; writeln('3) average (selected) = ', sum / count);
{подсчет суммы и произведения и агригатов и кол-ва} sum := 0; product := 1; count := 0; for i := 1 to n do begin if i mod 2 = 0 then {если нужен фильтр} sum := sum + a[i]; if a[i] < 0 then {если нужен фильтр} product := product * a[i]; if a[i] mod 2 = 1 then {если нужен фильтр} count := count + 1; end; writeln('4) count = ', count); writeln('4) sum = ', sum); writeln('4) product = ', product); end.
Сообщение из 140 символов имеет размер: 140 * 5 = 700 бит