Найди количество информации во фразе Приехав в Ямало-Ненецкий округ, исследователь увидел фразу на ненецком языке:





Сколько информации в этой фразе, если современный ненецкий алфавит содержит 36 символов?
Считай, что каждый символ алфавита кодируется одинаковым минимально возможным количеством битов. Не забудь учесть пробел, символы «'» и «"» как дополнительные символы алфавита.

1) Количество битов на символ: .

2) Общее количество информации:
   =  (бит)

ответ:  бит.

​

program xxx;

  var i, n : integer;

begin

  write ('введите число n-');

  readln (n);

  writeln('делители числа: ');

  for i : =1 to n do

    if n mod i = 0 then writeln (i)

end.

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

с2н6-этан

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

var n, n1, n2, n3, k: integer;

begin readln(n); n1 : = 1; n2 : = 1; n3 : = 2; k : = 0; if (n=1) or (n=2) then k : = 1; while n3 < = n do begin if n3=n then k : = 1; n1 : = n2; n2 : = n3; n3 : = n1 + n2; end; if k = 1 then writeln(n, ' является числом фибоначчи') else writeln(n, ' не является числом фибоначчи'); end.

1)

var

s,r: string;

i: integer;

begin

readln(s);

r: ='';

for i: =1 to length(s) do

if s[i]< > 'a' then r: =r+s[i];

writeln(r);

end.

2)

текст разделяем знаками препринания

var t: array [1..100] of string; p, s, r: string; f, i, j, k: integer;

begin p : = ' ; : -'; readln(s); k : = 0; r : = ''; for i : = 1 to length(s) do begin f : = 0; for j : = 1 to length(p) do if s[i] = p[j] then f : = 1; if f = 0 then r : = r + s[i] else begin k : = k + 1; t[k] : = r; r : = ''; end; if i=length(s) then begin k : = k + 1; t[k] : = r; end; end; for i : = k downto 1 do write(t[i], ' '); end.