Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Двоичный код: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;
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.