Сколько символов в тексте, информационный объем которого 2 Кбайта, а информационный вес одного символа 8 бит? В ответе напишите только число. Подсказка, прежде, чем делить, Кбайты надо перевести в биты. *​

1024 символа

Объяснение:

1 байт= 8 бит

1 кб = 1024 байт

1 мб= 1024 кб

1гб=1024 мб

1 кб = 1024*8=8192 битов

В тексте, 8192/8=1024  символа

Достоинства языка C++

1)Масштабируемость. На языке C++ разрабатывают программы для самых различных платформ и систем.

2)Возможность работы на низком уровне с памятью, адресами, портами. Что, при неосторожном использовании, может легко превратиться в недостаток.

3)Возможность создания обобщенных алгоритмов для разных типов данных, их специализация, и вычисления на этапе компиляции, используя шаблоны.

Недостатки языка C++

1)Наличие множества возможностей, нарушающих принципы типобезопасности приводит к тому, что в С++-программы может легко закрасться трудноуловимая ошибка.

2)Плохая поддержка модульности. Подключение интерфейса внешнего модуля через препроцессорную вставку заголовочного файла (#include) серьёзно замедляет компиляцию, при подключении большого количества модулей. Для устранения этого недостатка, многие компиляторы реализуют механизм прекомпиляции заголовочных файлов Precompiled Headers.

3)Недостаток информации о типах данных во время компиляции (CTTI).

4)Язык C++ является сложным для изучения и для компиляции.

5)Некоторые преобразования типов неинтуитивны. В частности, операция над беззнаковым и знаковым числами выдаёт беззнаковый результат.

должно по идее получиться "нет худо без добра.", но у меня получилось

"нет худо бrз одра." может ты в условии что-то напутала? вот программа которая переводит

function Pow(a, x:integer):integer;
var
  rez, i:integer;
begin
  rez := 1;
  for i := 1 to x do
    rez := rez * a;
  Pow := rez;
end;

function BinToDec(a:string):integer;
var
i ,r:integer;
begin
  r := 0;
  for i := length(a) downto 1 do
    r := r + StrToInt(a[i]) * Pow(2, length(a) - i);

  BinToDec := r;
end;

var
  s:array[1..100] of string;
  i:integer;
begin
  s[1] := '11001101';
  s[2] := '11100101';
  s[3] := '11110010';
  s[4] := '00100000';
  s[5] := '11110101';
  s[6] := '11110011';
  s[7] := '11100100';
  s[8] := '11100000';
  s[9] := '00100000';
  s[10] := '11100001';
  s[11] := '1110010';
  s[12] := '11100111';
  s[13] := '00100000';
  s[14] := '11101110';
  s[15] := '11100001';
  s[16] := '11110000';
  s[17] := '11100000';
  s[18] := '00101110';
  for i := 1 to 18 do
    write(chr(BinToDec(s[i])));
end.