, задача по теории информации. Подсчитайте энтропию русского алфавита и алфавита, состоящего из 16 разрядных двоичных символов.

const

  a: array[1..6]of longint=(7,4,10,6,5,3);

var

  i: longint;

begin

for i: =1 to 6 do  write(9.8*a[i]*1200,' ');

writeln;

end.

в си:

# include < stdio.h> # include < conio.h> void main ()  {

    clrscr();

    int x,y,c,k;

    printf("vvedite x \n");  

    scanf("%d",& x);

    printf("vvedite y \n");  

    scanf("%d",& y);

    printf("vvedite c \n");  

    scanf("%d",& c);

    k=x+(y/(2*c));

    printf("otvet: %d \n",k);

    getch();

  }

десятичная   двоичная         восьмеричная           шестнадцатиричная

1)

10                 1010                               12                                       a

18                 10010                             22                                     12

322               101000010                   502                                   142

2)

10                 1010      

74                                                         112      

92                                                                                                 5c  

числа снизу обозначают систему счисления

1)

var

a: array[1..50]of real;  

i,n: byte;

sn: real;  

begin 

  write('введите количество элементов массива: '); readln(n);

for i: =1 to n do

begin

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

end;

clrscr;  

writeln('исходный массив: ');  

/* вывод в строчку через запятую*/

for i: =1 to n-1 do write(a[i]: 5: 3,', '); write(a[n]: 5: 3,'.');

/*простой вывод в столбик*/

for i: =1 to n do writeln(a[i]: 5: 3);

/*сумма элементов, стоящих на четных местах*/ 

sn: =0;

while i< =n do

begin

  if odd(i)=false then sn: =sn+a[i];

  i: =i+1;

end;  

/*вывод ответа*/

writeln('сумма элементов, стоящих на четных местах: ',sn: 5: 3);

end. 

2)

var

a: array[1..50]of real;

i: byte;  

begin

  write('введите количество элементов массива: '); readln(n);

for i: =1 to n do

begin

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

end;

clrscr;  

writeln('исходный массив: ');  

/* вывод в строчку через запятую*/

for i: =1 to n-1 do write(a[i]: 5: 3,', '); write(a[n]: 5: 3,'.');

/*количество элементов кратных 3*/

kol: =0;  

for i: =1 to n do

if a[i] mod 3 =0 then kol: =kol+1;  

/*вывод ответа*/

writeln('количество элементов массива, кратных трем: ',kol);

end.