Двоичный код:11001101 11100101 11110010 00100000 11110101 11110011 11100100 11100000 00100000 11100001 1110010 11100111 00100000 11101110 11100001 11110000 11100000 00101110.

Текст___________________

Заранее большое спасибо!!!!!)))))

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

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