Question

Elaborati un program care calculeaza cantitatea de informatie din N mesaje emise de o sursa cu n mesaje posibile.

Answer 1

program informatie;

var sursa, emise: integer;

   V: real;

begin

  write(' N='); read(emise);

  write('n='); read(sursa);

  V:=emise * ( ln(sursa) / ln(2) );

  writeln(' cantitatea de informatie V=', V:0:2, ' biti');

end.