1.2.информация передается при частотно-модулированных сигналов, рабочая частота fкоторых изменяется с равной вероятностью в пределах от f1=10мгц до f2=50мгц. определитьэнтропию значения частоты, если точность измерения частоты f=2кгц.решение: ответ: ​

Жизни пифагора трудно отделить от легенд, представляющих его в 

procedure reverse (var a: integer);

var

  r: integer;

begin

  r : = 0;

  while a < > 0 do

  begin

      r : = r * 10 + a mod 10;

      a : = a div 10;

  end;

  a : = r;

end;

 

 

//функция

function reverse (a: integer): integer;

var

  r: integer;

begin

  r : = 0;

  while a < > 0 do

  begin

      r : = r * 10 + a mod 10;

      a : = a div 10;

  end;

  reverse : = r;

end;

const

  n = 30;

var

  a: array [1..n] of integer;

  maxev, maxodd, i: integer;

begin

  for i : = 1 to n do

  begin

      write('a[', i , '] = ');

      readln(a[i]);

  end;

  maxev : = 0;

  maxodd : = 0;

  for i : = 1 to n do { перебираем все элементы массива}

      if a[i] mod 2 = 0 then { проверяем делится ли текущий элемент на 2 без остатка}

      begin

          if a[i] > maxev then {если да, то проверяем больше ли найденного до этого наибольшего четного}

              maxev : = a[i]; {присваиваем новое наибольшее четное значение}

        end

      else

            if a[i] > maxodd then {если нет, то проверяем больше ли найденного до этого наибольшего нечетного}

                maxodd : = a[i]; {присваиваем новое наибольшее нечетное значение}

  writeln ('maxev - maxodd = ', maxev, ' - ', maxodd, ' = ', maxev - maxodd);

end.