М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
ivangladkikh
ivangladkikh
03.08.2022 17:50 •  Информатика

В одной из кодировок unicode каждый символ кодируется 16 битами. Петя написал текст (в нём нет лишних пробелов) >

👇
Открыть все ответы
Ответ:
Arash12345
Arash12345
03.08.2022
 Двоичное кодирование
В общем случае, чтобы представить информацию в дискретной форме, её следует выразить с символов какого-нибудь естественного или формального языка. Таких языков тысячи. Каждый язык имеет свой алфавит.
Алфавит — конечный набор отличных друг от друга символов (знаков), используемых для представления информации. Мощность алфавита — это количество входящих в него символов (знаков).
Алфавит, содержащий два символа, называется двоичным алфавитом  Представление информации с двоичного алфавита называют двоичным кодированием. Закодировав таким информацию, мы получим её двоичный код.
4,5(18 оценок)
Ответ:
Mattes17
Mattes17
03.08.2022
Program E04;
  uses crt;
    var
      n,i,k,f: integer;
      X: array[1..50] of real;
      Max,S: real;
begin
  clrscr;
  writeln('Введите размерность: ');
  readln(n);
    writeln('Введите массив: ');
  for i:=1 to n do
    begin
      write('X[',i:2,'] ==> ');
      readln(X[i])
    end;
writeln('Исходный  массив: ');
      for i:=1 to n do
    write(X[i],' ');
    writeln;

  Max:=abs(X[1]);
    for i:=1 to n do
    if Max <= abs(X[i]) then
      Max:=abs(X[i]);
        writeln('Максимальный элемент по модулю: ',Max);
    i:=1;
    while (i <= n) and (X[i] <= 0) do
    i:=i+1;
      if i > n then
    writeln ('folse')
  else
    begin
      k:=i;
      i:=i+1;
            while (i <= n) and (X[i] <= 0) do
        i:=i+1;
              if i > n then
        writeln ('folse')
      else
        begin
          f:=i;
          for i := k + 1 to f - 1 do
            S:=S+X[i];
                      writeln('Сумма: ',S:5:2);
        end;
    end;
end.
4,5(8 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ