Визначте, вміст скількох книжок можна зберегти в електронному вигляді на DVD-диску обсягом 4, 7 Гбайта.​

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

"нет худо б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.

Ниже этого меню, находится список звуков, которые присутствуют у выбранного спрайта или у сцены. Щёлкните по звуку в списке звуков, если хотите с ним дальше работать. Над ним появится крестик. Щёлкните по нему если хотите удалить звук.Справа от списка звуков расположен редактор выбранного звука. Нажмите на значок треугольника чтобы звук. Нажмите на значок квадрата чтобы остановить звук. Нажмите на значок круга чтобы записать звук с микрофона и добавить его к выбранному звуку. Кликните по надписи "Правка" или "Эффекты" для изменения звука, или добавления к нему различных эффектов. Но прежде чем сделать это, выделите часть звука, которую хотите изменить.