Определите объем информации сообщения "москва - столица россии", закодированного с 16-битного unicode

23 знака(если без кавычек)*2 байта=46 байт

1) на pascal:   var  t,i,j: integer;   a: array[1..4]of integer;   begin  for i: =1 to 4 do  begin  write('vvedite ',i,'-i 4islo: ');   readln(a );   end;   for i: =2 to 4 do  for j: =4 downto i do  if a[j-1]> a[j] then  begin  t: =a[j-1];   a[j-1]: =a[j];   a[j]: =t;   end;   writeln('raspolagaem 4isla v poryadke vozrastaniya: ');   for i: =1 to 4 do  writeln(a);   readln;   end.  2) на с:   #include < stdio.h>   #include < conio.h>   void main(void){  int n,a,b,c,d;   printf("\nvvedite 4x-znachnoe chislo n: ");   scanf("%i", & n);   a=n/1000;   b=(n-a*1000)/100;   c=(n-a*1000-b*100)/10;   d=n-a*1000-b*100-c*10;   if (a+b==c+d) printf("true");   else printf("false");   getch();  

// pascalabc.net 3.3 begin   var a: =arrrandom(10,-50,50);   writeln('1)');   a.println;   writeln('среднее арифметическое четных элементов = ',             a.where(x-> x mod 2=0).average);   var c: =arrrandom(10,-50,50);   writeln('2)');   c.println;   writeln('max+min = ',c.max+c.min);   writeln('3)');   var n: =readinteger('n =');   var b: =seqgen(n,random(5),x-> x+random(1,;   b.println;   var s: =readinteger('s =');   var k: =b.where(x-> x< s).count;   b: =b[: k]+arr(s)+b[k: ];   b.println; end. пример: 1) -24 12 -31 -5 -45 36 27 43 46 -6 среднее арифметическое четных элементов = 12.8 2) 24 -13 -20 -47 16 27 -33 11 22 -33 max+min = -20 3) n = 10 0 4 5 7 11 15 19 20 24 25 s = 10 0 4 5 7 10 11 15 19 20 24 25