В алфавите языка Тумба-Юмба всего 4 буквы, и частоты их встречаемости в словах 0.1, 0.2, 0.3, 0.4 соответственно. Какой средний информационный вес букв этого алфавита?

язык си(откомпилирован и проверен был в dev-c++)

#include < stdio.h> #include < stdlib.h> #include < conio.h> int main(){      int a, b, c;       printf("\n vvedite 3 chisla :   ");       scanf("%d" "%d" "%d", & a, & b, & c);             if (a > b & & a > c) printf("\n a = %d", a);       if (b > c & & b > a) printf("\n b = %d", b);       if (c > b & & c > a) printf("\n c = %d", c);       if (a == b & & a > c) printf("\n a = %d b = %d", a, b);       if (a == c & & a > b) printf("\n a = %d c = %d", a, c);       if (b == c & & b > c) printf("\n b = %d c = %d", b, c);       if (a == b & & a == c) printf("\n a = %d b = %d c = %d", a, b, c);   printf("\n\n press ");   getch( );   return 0; }

паскаль (откомпилирован и проверен был в pascal abc)

program z1; uses crt; var a, b , c: integer; beginwrite('vvedite 3 chisla:   '); readln(a, b, c); if (a > b) and (a > c) then writeln(' a = ', a); if (b > c) and (b > a) then writeln(' b = ', b); if (c > a) and (c > b) then writeln(' c = ', c); if (a = b) and (a > c) then writeln(' a = ', a, ' b = ', b); if (a = c) and (a > b) then writeln(' a = ', a, ' c = ', c); if (b = c) and (b > c) then writeln(' b = ', c, ' c = ', c); if (a = b) and (a = c) then writeln(' a = ', a, ' b = ', b, ' c = ', c); end.

на каком япе? вот пример решения на паскале abc.

program test;

var s: string;

begin

  read(s);

  write(s);

end.

для начала переведем 100мбит в байты.

100мбитс=100*1024*1024/8=13107200 байт

  13107200 байт*1с =  13107200 байт.

ответ:   13107200 байт.

1)

var a,b,c,d: real;

begin

  read(a,b);

  c: =(a+b)/2;

  d: =2*a*b;

  if a> b then begin

    a: =d;

    b: =c;

  end;

  if a< b then begin

  a: =c;

  b: =d;

  end;

  writeln(a,' ',b);

end.

2)

var a,b: integer;

begin

  read(a,b);

  if (a< 1) or (a> 31) then writeln(' день введен неправильно');

  if (b< 1) or (b> 12) then writeln(' месяц введен неправильно');

end.

3)

var a,b,c: real;

begin

  read(a,b,c);

  if (a> b)and(a> c)then writeln(a);  

    if (b> a)and(b> c)then writeln(b);

  if (c> b)and(c> a)then writeln(c);

end.