Автоматическое устройство осуществило перекодировку информационного сообщения на языке длиной в 24 символа из 16-битного кода unicode в 8-битный код кои-8. как изменился объем сообщения. в ответе поподробней.

👇

Увидеть ответ

Ответ:

bos002

07.07.2021

Объем был = 24*16 = 384 бит = 48 байт
Объем стал = 24*8 = 192 бит = 24 байт
Объем изменился с 48 байт до 24 байт

4,6(19 оценок)

Открыть все ответы

Ответ:

Kisyshka

07.07.2021

Это ? pascalвыделить код1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 uses graphabc; function f(x: real): real; begin f: =sin(x)/x end; var mx,my,x,dx,y: real; x0,y0,i: integer; s: string; begin x0: =windowwidth div 2; {г*г*г·г*г«г® гєг®г®г°г¤гёг*г*гі гў г¶гґг*гіг°гґ гѕгєг°г*г*г*} y0: =windowheight div 2; {гєг®гѕгґгґгёг¶гёгґг*гіг» гїг® г®г±гїг¬ г¤г«гї гїгґг°гґгўг®г¤г* г°гґг*г«гјг*г»гµ гєг®г®г°г¤гёг*г*гі гў гѕгєг°г*г*г*г»гґ} mx: =30; my: =100; line(0,y0,windowwidth,y0); {г®г±гј г•} line(x0,windowheight,x0,0); {г®г±гј г“} {гїг®г¤гїгёг±гё г®г±гё y} line(x0-3,y0-round(my),x0+3,y0-round(my)); textout(x0-10,y0-round(my)-15,'1'); line(x0-3,y0+round(my),x0+3,y0+round(my)); textout(x0-15,y0+round(my),'-1'); {гїг®г¤г°гёг±гё г®г±гё г•} for i: =1 to 6 do {г¬г*гєг±гёг¬г*г«гјг*г®гґ гєг®г«гёг·гґг±гігўг® г§г*г±гґг·гґгє гў г®г¤г*гі г±гіг®г°г®г*гі} begin line(x0+round(i*pi*mx/2),y0-3,x0+round(i*pi*mx/2),y0+3); {г§г*г±гґг·гєгё г*г* г®г±гё г•} line(x0-round(i*pi*mx/2),y0-3,x0-round(i*pi*mx/2),y0+3); if i mod 2=0 then {гїг®г¤гїгёг±гё г·гґг°гґг§ 1} begin str(i div 2,s); if s='1' then s: =''; {1pi 1 г*гґ гїгёгёгґг¬} textout(x0+round(i*pi*mx/2),y0+10,s+'pi'); textout(x0-round(i*pi*mx/2),y0+10,'-'+s+'pi'); end; end; {г¶гґг*гіг°} textout(x0+5,y0+10,'0'); {гїг®г¤гїгёг±гё гєг®г*г¶г®гў г®г±гґг©} textout(windowwidth-10,y0-10,'x'); textout(x0-10,10, 'y'); dx: =0.001; {гјг°г*гґгёгє} x: =-3*pi; while x< =3*pi do begin setpixel(x0+round(x*mx),y0-round(f(x)*my),clblue); {гјг°г*гґгёгє г±гёг*гёг¬} x: =x+dx; {г*г*г°г*г№гёгўг*гґг¬ гµ} end; end.

4,8(73 оценок)

Ответ:

Tiger333

07.07.2021

// PascalABC.NET 3.0, сборка 1073
const
nn=30;
mm=30;
var
a:array[1..mm,1..nn] of integer;
m,n,i,j,k,s:integer;
begin
Writeln('Введите число строк и столбцов массива: '); Read(m,n);
Randomize;
Writeln('*** Исходный массив ***');
k:=0;
for i:=1 to m do begin
    for j:=1 to n do begin
      a[i,j]:=Random(51)-25;
      Write(a[i,j]:4);
      if Odd(a[i,j]) then Inc(k)
    end;
    Writeln
end;
if k>5 then begin
    Writeln('Средние арифметические отрицательных элементов по строкам');
    for i:=1 to m do begin
      s:=0; k:=0;
      for j:=1 to n do
        if a[i,j]<0 then begin Inc(k); s:=s+a[i,j] end;
      if k>0 then Writeln(s/k:9:5) else Writeln(' 0.00000');
    end
end
else begin
    Writeln('*** Результирующий массив ***');
    for i:=1 to m do begin
      for j:=1 to n do begin a[i,j]:=2*a[i,j]; Write(a[i,j]:4) end;
    Writeln
    end
end
end.

Тестовые решения:
Введите число строк и столбцов массива:
8 6
*** Исходный массив ***
-16 -8 -1 24 -22   1
-9 -20 -25 13 -11 10
-15 10 -12 20 -22   3
-6 25 -3 25 -14 22
24 -4 24 17 -4 -17
-23 -9 -22   1 -18 -13
-12 13   6 -16   2 -13
19   8 -22 14 -3   4
Средние арифметические отрицательных элементов по строкам
-11.75000
-16.25000
-16.33333
-7.66667
-8.33333
-17.00000
-13.66667
-12.50000

Введите число строк и столбцов массива:
3 5
*** Исходный массив ***
   3 24 -21 -22 -8
-21 14 -22   0 -22
15 -16 -2   6 22
*** Результирующий массив ***
   6 48 -42 -44 -16
-42 28 -44   0 -44
30 -32 -4 12 44

4,7(6 оценок)

Это интересно:

Образование-и-коммуникации

06.10.2021

Как найти расстояние между двумя точками: научимся решать задачи за считанные минуты...

Стиль-и-уход-за-собой

07.07.2021

Секреты и техники рисования идеальных бровей...

Здоровье

19.04.2020

Как бороться с прыщами во время беременности...

Дом-и-сад