{"id":290287,"date":"2018-10-04T00:00:02","date_gmt":"2018-10-03T20:00:02","guid":{"rendered":"http:\/\/savepearlharbor.com\/?p=290287"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-29T21:00:00","slug":"","status":"publish","type":"post","link":"https:\/\/savepearlharbor.com\/?p=290287","title":{"rendered":"\u0418\u043d\u0442\u0435\u0440\u043f\u0435\u0442\u0430\u0442\u043e\u0440 Brainfuck \u043d\u0430 TASM"},"content":{"rendered":"\n<div class=\"post__text post__text-html js-mediator-article\"><img decoding=\"async\" src=\"https:\/\/habrastorage.org\/webt\/x4\/8c\/nl\/x48cnlebuoswjtyt8qjveh5xira.jpeg\"><\/p>\n<p>  \u0414\u043b\u044f \u043d\u0430\u0447\u0430\u043b\u0430 \u043d\u0430\u043f\u0438\u0448\u0435\u043c \u0438\u043d\u0442\u0435\u0440\u043f\u0440\u0435\u0442\u0430\u0442\u043e\u0440 \u043d\u0430 \u0432\u044b\u0441\u043e\u043a\u043e\u0443\u0440\u043e\u0432\u043d\u0435\u0432\u043e\u043c \u044f\u0437\u044b\u043a\u0435, \u043d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, \u043d\u0430 Pascal&#8217;e.<\/p>\n<p>  \u041c\u0430\u0441\u0441\u0438\u0432 <b>data_arr<\/b> \u0431\u0443\u0434\u0435\u0442 \u043f\u0440\u0435\u0434\u0441\u0442\u0430\u0432\u043b\u044f\u0442\u044c \u043f\u0430\u043c\u044f\u0442\u044c \u0434\u0430\u043d\u043d\u044b\u0445, \u0441\u0442\u0440\u043e\u043a\u0430 <b>str_arr<\/b> \u0431\u0443\u0434\u0435\u0442 \u0441\u043e\u0434\u0435\u0440\u0436\u0430\u0442\u044c \u043a\u043e\u043c\u0430\u043d\u0434\u044b.<br \/>  \u041d\u0430\u043f\u0438\u0448\u0435\u043c \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0443, \u0432\u044b\u0432\u043e\u0434\u044f\u0449\u0443\u044e \u0441\u0438\u043c\u0432\u043e\u043b, ascii-\u043a\u043e\u0434 \u043a\u043e\u0442\u043e\u0440\u043e\u0433\u043e \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u0435\u0442 \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u0443 <b>+<\/b> (\u043f\u043e\u044d\u0442\u043e\u043c\u0443 \u043d\u0430\u043c \u043d\u0443\u0436\u043d\u044b \u0431\u0443\u0434\u0443\u0442 \u0442\u043e\u043b\u044c\u043a\u043e \u043a\u043e\u043c\u0430\u043d\u0434\u044b <b>+<\/b> \u0438 <b>.<\/b>)   <\/p>\n<pre><code>var  data_arr:array[1..10] of integer;    \/\/ \u043c\u0430\u0441\u0441\u0438\u0432 \u0434\u0430\u043d\u043d\u044b\u0445  str_arr: string;                     \/\/ \u043a\u043e\u043c\u0430\u043d\u0434\u044b    i, j: integer;                       \/\/ \u0438\u043d\u0434\u0435\u043a\u0441\u044b \u0441\u0442\u0440\u043e\u043a\u0438 \u0438 \u043c\u0430\u0441\u0441\u0438\u0432\u0430 begin  j:=1;                  \/\/ \u043d\u0443\u043c\u0435\u0440\u0430\u0446\u0438\u044f \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u043e\u0432 \u043c\u0430\u0441\u0441\u0438\u0432\u0430 (\u0432\u043d\u0435\u0437\u0430\u043f\u043d\u043e) \u043d\u0430\u0447\u0438\u043d\u0430\u0435\u0442\u0441\u044f \u0441 \u0435\u0434\u0438\u043d\u0438\u0446\u044b  readln(str_arr);       \/\/\u0441\u0447\u0438\u0442\u044b\u0432\u0430\u0435\u043c \u0441\u0442\u0440\u043e\u043a\u0443   for i:=1 to length(str_arr) do begin    \/\/ \u0432 \u0446\u0438\u043a\u043b\u0435 \u043e\u0431\u0440\u0430\u0431\u0430\u0442\u044b\u0432\u0430\u0435\u043c \u0441\u0442\u0440\u043e\u043a\u0443   if (str_arr[i]='+') then data_arr[j]:= data_arr[j]+1;   if (str_arr[i]='.') then write(chr(data_arr[j]));  end; end. <\/code><\/pre>\n<p>  \u041a\u043e\u0434 +++++++++++++++++++++++++++++++++. \u0432\u044b\u0434\u0430\u0441\u0442 <b>!<\/b> (ascii-\u043a\u043e\u0434 \u0441\u0438\u043c\u0432\u043e\u043b\u0430 <b>!<\/b> \u0440\u0430\u0432\u0435\u043d 33 ).<br \/>  <a name=\"habracut\"><\/a><br \/>  \u0420\u0430\u0431\u043e\u0442\u043e\u0441\u043f\u043e\u0441\u043e\u0431\u043d\u043e\u0441\u0442\u044c \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b \u043c\u043e\u0436\u043d\u043e \u043f\u0440\u043e\u0432\u0435\u0440\u0438\u0442\u044c \u0432 online ide <a href=\"https:\/\/ideone.com\/5UE5yu\">ideone.com<\/a><br \/>  <a href=\"https:\/\/fatiherikli.github.io\/brainfuck-visualizer\/\">\u0412\u043e\u0442 \u0437\u0434\u0435\u0441\u044c<\/a> \u043c\u043e\u0436\u043d\u043e \u0432\u044b\u043f\u043e\u043b\u043d\u0438\u0442\u044c \u043e\u0442\u043b\u0430\u0434\u043a\u0443 \u0432 \u043f\u043e\u0448\u0430\u0433\u043e\u0432\u043e\u043c \u0440\u0435\u0436\u0438\u043c\u0435.<\/p>\n<p>  \u0414\u0430\u043b\u0435\u0435, \u0437\u0430\u043c\u0435\u043d\u0438\u043c \u0446\u0438\u043a\u043b <b>for<\/b> \u043e\u043f\u0435\u0440\u0430\u0442\u043e\u0440\u043e\u043c <b>goto<\/b> \u0438 \u0434\u043e\u0431\u0430\u0432\u0438\u043c \u043a\u043e\u043c\u0430\u043d\u0434\u044b <math><img decoding=\"async\" src=\"https:\/\/habrastorage.org\/getpro\/habr\/formulas\/04f\/532\/2a6\/04f5322a6487cc7b9d8bea14498baff3.svg\" alt=\"$-&lt;&gt;$\" data-tex=\"inline\"><\/math> <br \/>  \u0412 \u043a\u043e\u043d\u0446\u0435 \u0431\u0443\u0434\u0435\u043c \u0432\u044b\u0432\u043e\u0434\u0438\u0442\u044c \u043c\u0430\u0441\u0441\u0438\u0432 <b>data_arr<\/b>  <\/p>\n<pre><code>LABEL prev,next; var  data_arr:array[1..10] of integer;    \/\/ \u043c\u0430\u0441\u0441\u0438\u0432 \u0434\u0430\u043d\u043d\u044b\u0445  str_arr: string;                     \/\/ \u043a\u043e\u043c\u0430\u043d\u0434\u044b    i,j,k: integer;                       \/\/ \u0438\u043d\u0434\u0435\u043a\u0441\u044b \u0441\u0442\u0440\u043e\u043a\u0438 \u0438 \u043c\u0430\u0441\u0441\u0438\u0432\u0430 begin  i:=1;                   j:=1;  readln(str_arr);       \/\/\u0441\u0447\u0438\u0442\u044b\u0432\u0430\u0435\u043c \u0441\u0442\u0440\u043e\u043a\u0443  prev:  if i&gt;length(str_arr) then goto next;      if (str_arr[i]='+') then data_arr[j]:= data_arr[j]+1;     if (str_arr[i]='-') then data_arr[j]:= data_arr[j]-1;     if (str_arr[i]='&gt;') then j:=j+1;     if (str_arr[i]='&lt;') then j:=j-1;     if (str_arr[i]='.') then write(chr(data_arr[j]));        i:=i+1;  goto prev;  next: for k:=1 to 10 do begin  write(data_arr[k]); write(' '); end; end. <\/code><\/pre>\n<p>  \u041a\u043e\u0434 <math><img decoding=\"async\" src=\"https:\/\/habrastorage.org\/getpro\/habr\/formulas\/948\/911\/222\/948911222651e26547d6869c5f8dd8f1.svg\" alt=\"$+&gt;++&gt;+++$\" data-tex=\"inline\"><\/math> \u0432\u044b\u0434\u0430\u0441\u0442 1 2 3 0 0 0 0 0 0 0<br \/>  \u041a\u043e\u0434 <math><img decoding=\"async\" src=\"https:\/\/habrastorage.org\/getpro\/habr\/formulas\/7b5\/da7\/56f\/7b5da756fd2a0db5d8db965b5be7bde4.svg\" alt=\"$+&gt;++&gt;+++-$\" data-tex=\"inline\"><\/math> \u0432\u044b\u0434\u0430\u0441\u0442 1 2 2 0 0 0 0 0 0 0<br \/>  <a href=\"https:\/\/ideone.com\/1whGbP\">ideone.com<\/a><\/p>\n<p>  \u0414\u0430\u043b\u0435\u0435, \u0434\u043e\u0431\u0430\u0432\u0438\u043c <b>[<\/b> \u0438 <b>]<\/b><br \/>  \u0414\u043e\u0431\u0430\u0432\u0438\u043c \u0435\u0449\u0451 \u043e\u0434\u043d\u0443 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0443\u044e <b>i_stor<\/b>.<br \/>  \u0415\u0441\u043b\u0438 \u0442\u0435\u043a\u0443\u0449\u0438\u0439 \u044d\u043b\u0435\u043c\u0435\u043d\u0442 \u043f\u0440\u043e\u0448\u0451\u043b \u043f\u0440\u043e\u0432\u0435\u0440\u043a\u0443 \u043d\u0430 <b>[<\/b>, \u0442\u043e \u043f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u043c \u0442\u0435\u043a\u0443\u0449\u0438\u0439 \u044d\u043b\u0435\u043c\u0435\u043d\u0442 \u043c\u0430\u0441\u0441\u0438\u0432\u0430 <b>data_arr<\/b> \u043d\u0430 \u043d\u043e\u043b\u044c, \u0438, \u0435\u0441\u043b\u0438 \u044d\u043b\u0435\u043c\u0435\u043d\u0442 \u0431\u043e\u043b\u044c\u0448\u0435 \u043d\u0443\u043b\u044f, \u0437\u0430\u0433\u0440\u0443\u0436\u0430\u0435\u043c \u0432 <b>i_stor<\/b> \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0438\u0437 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u043e\u0439 <b>i<\/b>.<br \/>  \u041f\u0440\u0438 \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u043a\u0435 \u0437\u0430\u043a\u0440\u044b\u0432\u0430\u044e\u0449\u0435\u0439 \u0441\u043a\u043e\u0431\u043a\u0438 <b>]<\/b>, \u0435\u0441\u043b\u0438 <b>data_arr<\/b> \u043d\u0435 \u043d\u043e\u043b\u044c, \u0432 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0443\u044e <b>i<\/b> \u0438\u0437 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u043e\u0439 <b>i_stor<\/b> \u0437\u0430\u0433\u0440\u0443\u0436\u0430\u0435\u043c \u0430\u0434\u0440\u0435\u0441 \u043e\u0442\u043a\u0440\u044b\u0432\u0430\u044e\u0449\u0435\u0439 \u0441\u043a\u043e\u0431\u043a\u0438 <b>[<\/b><\/p>\n<pre><code>LABEL prev,next; var  data_arr:array[1..10] of integer;    \/\/ \u043c\u0430\u0441\u0441\u0438\u0432 \u0434\u0430\u043d\u043d\u044b\u0445  str_arr: string;                     \/\/ \u043a\u043e\u043c\u0430\u043d\u0434\u044b    i,j,k: integer;                       \/\/ \u0438\u043d\u0434\u0435\u043a\u0441\u044b \u0441\u0442\u0440\u043e\u043a\u0438 \u0438 \u043c\u0430\u0441\u0441\u0438\u0432\u0430  i_stor: integer;  begin  j:=1;                   i:=1;  readln(str_arr);       \/\/\u0441\u0447\u0438\u0442\u044b\u0432\u0430\u0435\u043c \u0441\u0442\u0440\u043e\u043a\u0443  prev:  if i&gt;length(str_arr) then goto next;      if (str_arr[i]='+') then data_arr[j]:= data_arr[j]+1;     if (str_arr[i]='-') then data_arr[j]:= data_arr[j]-1;     if (str_arr[i]='&gt;') then j:=j+1;     if (str_arr[i]='&lt;') then j:=j-1;     if (str_arr[i]='.') then write(chr(data_arr[j]));     if (str_arr[i]='[') then      begin         if data_arr[j]&gt;0 then i_stor:=i;      end;     if (str_arr[i]=']') then      begin         if data_arr[j]&gt;0 then         begin        i:=i_stor;        goto prev;        end;      end;       i:=i+1;  goto prev;  next: for k:=1 to 10 do begin  write(data_arr[k]); write(' '); end; end. <\/code><\/pre>\n<p>  \u041a\u043e\u0434 <math><img decoding=\"async\" src=\"https:\/\/habrastorage.org\/getpro\/habr\/formulas\/af3\/ddc\/8fa\/af3ddc8fa6b566762a7c64d6133cd502.svg\" alt=\"$+++++[&gt;+&lt;-]$\" data-tex=\"inline\"><\/math> \u043f\u0435\u0440\u0435\u043d\u043e\u0441\u0438\u0442 \u0447\u0438\u0441\u043b\u043e 5 \u0432 \u0441\u043e\u0441\u0435\u0434\u043d\u044e\u044e \u044f\u0447\u0435\u0439\u043a\u0443 0 5 0 0 0 0 0 0 0 0<br \/>  <a href=\"https:\/\/ideone.com\/sPYzQs\">ideone.com<\/a><br \/>  \u041a\u043e\u0434 HelloWorld \u0432\u044b\u0433\u043b\u044f\u0434\u0438\u0442 \u0442\u0430\u043a <a href=\"https:\/\/ideone.com\/6R39rl\">ideone.com<\/a><\/p>\n<p>  <\/p>\n<h4>\u041f\u0435\u0440\u0435\u0439\u0434\u0435\u043c \u043a \u0430\u0441\u0441\u0435\u043c\u0431\u043b\u0435\u0440\u0443<\/h4>\n<p>  \u0427\u0442\u043e\u0431\u044b \u043e\u0440\u0433\u0430\u043d\u0438\u0437\u043e\u0432\u0430\u0442\u044c \u0446\u0438\u043a\u043b (loop), \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u043f\u043e\u043c\u0435\u0441\u0442\u0438\u0442\u044c \u0432 \u0440\u0435\u0433\u0438\u0441\u0442\u0440 CX \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u0442\u0430\u043a\u0442\u043e\u0432 \u0446\u0438\u043a\u043b\u0430 \u0438 \u043f\u043e\u0441\u0442\u0430\u0432\u0438\u0442\u044c \u043c\u0435\u0442\u043a\u0443, \u043d\u0430 \u043a\u043e\u0442\u043e\u0440\u0443\u044e \u0431\u0443\u0434\u0435\u0442 \u0441\u0434\u0435\u043b\u0430\u043d \u043f\u0435\u0440\u0435\u0445\u043e\u0434 \u043f\u043e \u0437\u0430\u0432\u0435\u0440\u0448\u0435\u043d\u0438\u0438 \u0442\u0430\u043a\u0442\u0430 (\u043f\u043e \u043a\u043e\u043c\u0430\u043d\u0434\u0435 loop).  <\/p>\n<pre><code>mov CX, 28h    ; \u043a\u043e\u043b-\u0432\u043e \u0442\u0430\u043a\u0442\u043e\u0432 \u0446\u0438\u043a\u043b\u0430 prev:                ; \u043c\u0435\u0442\u043a\u0430 \u0446\u0438\u043a\u043b\u0430 ; \u0432\u044b\u043f\u043e\u043b\u043d\u044f\u0435\u043c  ; \u043e\u043f\u0435\u0440\u0430\u0446\u0438\u0438 ; \u0432\u043d\u0443\u0442\u0440\u0438 \u0446\u0438\u043a\u043b\u0430 loop prev          ; \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u043c\u0441\u044f \u043d\u0430 \u043c\u0435\u0442\u043a\u0443 prev <\/code><\/pre>\n<p>  \u0421\u043e\u0437\u0434\u0430\u0434\u0438\u043c \u043c\u0430\u0441\u0441\u0438\u0432 \u043a\u043e\u043c\u0430\u043d\u0434 <b>str_arr<\/b>, \u043f\u043e\u043c\u0435\u0441\u0442\u0438\u043c \u0442\u0443\u0434\u0430 <math><img decoding=\"async\" src=\"https:\/\/habrastorage.org\/getpro\/habr\/formulas\/36c\/dde\/07a\/36cdde07ac3cf5339df83056b2565b39.svg\" alt=\"$+++$\" data-tex=\"inline\"><\/math> <br \/>  \u0421\u043e\u0437\u0434\u0430\u0434\u0438\u043c \u043c\u0430\u0441\u0441\u0438\u0432 \u0434\u0430\u043d\u043d\u044b\u0445 <b>data_arr<\/b>, (\u0434\u043b\u044f \u043d\u0430\u0433\u043b\u044f\u0434\u043d\u043e\u0441\u0442\u0438) \u043f\u043e\u043c\u0435\u0441\u0442\u0438\u043c \u0442\u0443\u0434\u0430 1,1,1,1,1,1,1,1,1,1<\/p>\n<p>  \u0412 \u0446\u0438\u043a\u043b\u0435 \u0441\u0440\u0430\u0432\u043d\u0438\u0432\u0430\u0435\u043c \u0442\u0435\u043a\u0443\u0449\u0438\u0439 \u0441\u0438\u043c\u0432\u043e\u043b \u0441 \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u043c <math><img decoding=\"async\" src=\"https:\/\/habrastorage.org\/getpro\/habr\/formulas\/ae4\/dc5\/c6f\/ae4dc5c6fd4ec28ba4b81a2ec09d88b9.svg\" alt=\"$+$\" data-tex=\"inline\"><\/math> \u0438, \u0435\u0441\u043b\u0438 \u0441\u0438\u043c\u0432\u043e\u043b\u044b \u0440\u0430\u0432\u043d\u044b, \u0443\u0432\u0435\u043b\u0438\u0447\u0438\u0432\u0430\u0435\u043c \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0432 \u0442\u0435\u043a\u0443\u0449\u0435\u0439 \u044f\u0447\u0435\u0439\u043a\u0435 \u043d\u0430 1.   <\/p>\n<pre><code>text segment                      ; bf1.asm  assume cs:text, ds:data, ss:stk begin:   ;\u041f\u043e\u0434\u0433\u043e\u0442\u043e\u0432\u0438\u043c \u0432\u0441\u0435 \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e\u0435   mov AX,data          ; \u043d\u0430\u0441\u0442\u0440\u0430\u0438\u0432\u0430\u0435\u043c \u0441\u0435\u0433\u043c\u0435\u043d\u0442 \u0434\u0430\u043d\u043d\u044b\u0445                                          mov DS,AX                mov DL, str_arr      ; \u0437\u0430\u0433\u0440\u0443\u0436\u0430\u0435\u043c \u0432 DL 1\u0443\u044e \u043a\u043e\u043c\u0430\u043d\u0434\u0443    mov CX, 0Ah          ; 10 \u0442\u0430\u043a\u0442\u043e\u0432 prev:                      cmp DL, 2Bh           ; \u044f\u0447\u0435\u0439\u043a\u0430 \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u0442 +  jne next              ; \u043d\u0435\u0442, \u043f\u0435\u0440\u0435\u0445\u043e\u0434\u0438\u043c \u043d\u0430 \u043c\u0435\u0442\u043a\u0443 next    mov BL, 00h           ; \u0437\u0430\u0433\u0440\u0443\u0436\u0430\u0435\u043c \u0432 BL \u0438\u043d\u0434\u0435\u043a\u0441   inc data_arr[BX]      ; \u0434\u0430, \u0443\u0432\u0435\u043b\u0438\u0447\u0438\u0432\u0430\u0435\u043c  \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0432 \u044f\u0447\u0435\u0439\u043a\u0435 \u043d\u0430 1  next:  inc i                 ; \u043f\u0435\u0440\u0435\u0445\u043e\u0434\u0438\u043c \u043d\u0430 \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0438\u0439 \u0441\u0438\u043c\u0432\u043e\u043b \u043c\u0430\u0441\u0441\u0438\u0432\u0430 \u043a\u043e\u043c\u0430\u043d\u0434  mov BL, i  mov DL, str_arr [BX]     loop prev              mov AX, 4c00h        ; \u0437\u0430\u0432\u0435\u0440\u0448\u0435\u043d\u0438\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b     int 21h  text ends  data segment            str_arr DB  2Bh,2Bh,2Bh,'$' ; \u043a\u043e\u0434 +++ data_arr DB 1,1,1,1,1,1,1,1,1,1,'$' ; \u0434\u0430\u043d\u043d\u044b\u0435 i DB 0                  ;\u0438\u043d\u0434\u0435\u043a\u0441 \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u0430 \u043c\u0430\u0441\u0441\u0438\u0432\u0430 \u043a\u043e\u043c\u0430\u043d\u0434  data ends  stk segment stack        db 100h dup (0)       ; \u0440\u0435\u0437\u0435\u0440\u0432\u0438\u0440\u0443\u0435\u043c 256 \u044f\u0447\u0435\u0435\u043a stk ends end begin       <\/code><\/pre>\n<p>  \u0410\u0441\u0441\u0435\u043c\u0431\u043b\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435 (\u0442\u0440\u0430\u043d\u0441\u043b\u044f\u0446\u0438\u044f) \u0432\u044b\u043f\u043e\u043b\u043d\u044f\u0435\u0442\u0441\u044f \u043a\u043e\u043c\u0430\u043d\u0434\u043e\u0439 <i>tasm.exe bf1.asm<\/i><br \/>  \u041b\u0438\u043d\u043a\u043e\u0432\u043a\u0430 \u0432\u044b\u043f\u043e\u043b\u043d\u044f\u0435\u0442\u0441\u044f \u043a\u043e\u043c\u0430\u043d\u0434\u043e\u0439 <i>tlink.exe bf1.obj<\/i><\/p>\n<p>  \u041f\u043e\u0441\u043b\u0435 \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b \u0432 \u043e\u0442\u043b\u0430\u0434\u0447\u0438\u043a\u0435 TurboDebagger \u0432\u0438\u0434\u043d\u043e, \u0447\u0442\u043e \u043d\u0430\u0447\u0438\u043d\u0430\u044f \u0441 \u0430\u0434\u0440\u0435\u0441\u0430 0130 \u0440\u0430\u0441\u043f\u043e\u043b\u043e\u0436\u0435\u043d\u044b \u043a\u043e\u043c\u0430\u043d\u0434\u044b <math><img decoding=\"async\" src=\"https:\/\/habrastorage.org\/getpro\/habr\/formulas\/36c\/dde\/07a\/36cdde07ac3cf5339df83056b2565b39.svg\" alt=\"$+++$\" data-tex=\"inline\"><\/math> <br \/>  \u0414\u0430\u043b\u0435\u0435 \u0438\u0434\u0435\u0442 \u043c\u0430\u0441\u0441\u0438\u0432 \u0434\u0430\u043d\u043d\u044b\u0445, \u0432 \u043a\u043e\u0442\u043e\u0440\u043e\u043c \u043c\u044b \u0438\u0437\u043c\u0435\u043d\u0438\u043b\u0438 \u043f\u0435\u0440\u0432\u044b\u0439 \u044d\u043b\u0435\u043c\u0435\u043d\u0442, \u0434\u0430\u043b\u0435\u0435 \u0438\u0434\u0435\u0442 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f <b>i<\/b>, \u043a\u043e\u0442\u043e\u0440\u0430\u044f \u043f\u043e\u0441\u043b\u0435 \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f \u0446\u0438\u043a\u043b\u0430 \u0441\u0442\u0430\u043b\u0430 \u0440\u0430\u0432\u043d\u0430 0Ah. <br \/>  <img decoding=\"async\" src=\"https:\/\/habrastorage.org\/webt\/x4\/8c\/nl\/x48cnlebuoswjtyt8qjveh5xira.jpeg\"><\/p>\n<p>  \u0414\u043e\u0431\u0430\u0432\u0438\u043c \u043a\u043e\u043c\u0430\u043d\u0434\u044b <math><img decoding=\"async\" src=\"https:\/\/habrastorage.org\/getpro\/habr\/formulas\/a3f\/919\/847\/a3f91984725a0830034f3b4874733a39.svg\" alt=\"$ -&lt;&gt;. $\" data-tex=\"inline\"><\/math><br \/>  \u0414\u043b\u044f \u0442\u043e\u0433\u043e, \u0447\u0442\u043e\u0431\u044b \u0432\u044b\u0432\u0435\u0441\u0442\u0438 \u043e\u0434\u0438\u043d\u043e\u0447\u043d\u044b\u0439 \u0441\u0438\u043c\u0432\u043e\u043b \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e \u0444\u0443\u043d\u043a\u0446\u0438\u0438 <b>02h<\/b> \u043f\u0440\u0435\u0440\u044b\u0432\u0430\u043d\u0438\u044f <b>int 21h<\/b>, \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e (\u043f\u0435\u0440\u0435\u0434 \u0432\u044b\u0437\u043e\u0432\u043e\u043c \u043f\u0440\u0435\u0440\u044b\u0432\u0430\u043d\u0438\u044f) \u043f\u043e\u043c\u0435\u0441\u0442\u0438\u0442\u044c \u043a\u043e\u0434 \u0441\u0438\u043c\u0432\u043e\u043b\u0430 \u0432 \u0440\u0435\u0433\u0438\u0441\u0442\u0440 <b>DL<\/b>.  <\/p>\n<pre><code> mov AH,2   mov DL, \u043a\u043e\u0434 \u0441\u0438\u043c\u0432\u043e\u043b\u0430  int 21h <\/code><\/pre>\n<p>  \u041d\u0430\u043f\u0438\u0448\u0435\u043c \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0443 \u0446\u0435\u043b\u0438\u043a\u043e\u043c  <\/p>\n<pre><code>text segment                     ; bf2.asm  assume cs:text,ds:data, ss:stk begin:   ;\u041f\u043e\u0434\u0433\u043e\u0442\u043e\u0432\u0438\u043c \u0432\u0441\u0435 \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e\u0435   mov AX,data        ; \u043d\u0430\u0441\u0442\u0440\u0430\u0438\u0432\u0430\u0435\u043c \u0441\u0435\u0433\u043c\u0435\u043d\u0442 \u0434\u0430\u043d\u043d\u044b\u0445                                          mov DS,AX                mov DL, str_arr    ; \u0437\u0430\u0433\u0440\u0443\u0436\u0430\u0435\u043c \u0432 DL 1\u0443\u044e \u043a\u043e\u043c\u0430\u043d\u0434\u0443    mov CX, 0Ah        ; 10 \u0442\u0430\u043a\u0442\u043e\u0432 prev:                      cmp DL, 2Bh         ; \u044f\u0447\u0435\u0439\u043a\u0430 \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u0442 +  jne next            ; \u043d\u0435\u0442, \u043f\u0435\u0440\u0435\u0445\u043e\u0434\u0438\u043c \u043d\u0430 \u043c\u0435\u0442\u043a\u0443 next    mov BL, j           ; \u0437\u0430\u0433\u0440\u0443\u0436\u0430\u0435\u043c \u0432 BL \u0438\u043d\u0434\u0435\u043a\u0441 \u0434\u0430\u043d\u043d\u044b\u0445  inc data_arr[BX]    ; \u0434\u0430, \u0443\u0432\u0435\u043b\u0438\u0447\u0438\u0432\u0430\u0435\u043c  \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0432 \u044f\u0447\u0435\u0439\u043a\u0435 \u043d\u0430 1 next:   cmp DL, 2Dh         ; \u044f\u0447\u0435\u0439\u043a\u0430 \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u0442 -  jne next1           ; \u043d\u0435\u0442, \u043f\u0435\u0440\u0435\u0445\u043e\u0434\u0438\u043c \u043d\u0430 \u043c\u0435\u0442\u043a\u0443 next1    mov BL, j   dec data_arr[BX]      next1:   cmp DL, 3Eh        ; \u044f\u0447\u0435\u0439\u043a\u0430 \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u0442 &gt;  jne next2          ; \u043d\u0435\u0442, \u043f\u0435\u0440\u0435\u0445\u043e\u0434\u0438\u043c \u043d\u0430 \u043c\u0435\u0442\u043a\u0443 next2    inc j              ; \u0434\u0430, \u043f\u0435\u0440\u0435\u0445\u043e\u0434\u0438\u043c \u043d\u0430 \u0441\u0434\u0435\u0434\u0443\u044e\u0449\u0438\u0439 \u044d\u043b\u0435\u043c\u0435\u043d\u0442 \u043c\u0430\u0441\u0441\u0438\u0432\u0430 data_arr next2:   cmp DL, 3Ch        ; \u044f\u0447\u0435\u0439\u043a\u0430 \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u0442 &lt;  jne next3          ; \u043d\u0435\u0442, \u043f\u0435\u0440\u0435\u0445\u043e\u0434\u0438\u043c \u043d\u0430 \u043c\u0435\u0442\u043a\u0443 next3    dec j              ; \u0434\u0430, \u043f\u0435\u0440\u0435\u0445\u043e\u0434\u0438\u043c \u043d\u0430 \u043f\u0440\u0435\u0434\u044b\u0434\u0443\u0449\u0438\u0439 \u044d\u043b\u0435\u043c\u0435\u043d\u0442 \u043c\u0430\u0441\u0441\u0438\u0432\u0430 data_arr next3:   cmp DL, 2Eh        ; \u044f\u0447\u0435\u0439\u043a\u0430 \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u0442 .  jne next4          ; \u043d\u0435\u0442, \u043f\u0435\u0440\u0435\u0445\u043e\u0434\u0438\u043c \u043d\u0430 \u043c\u0435\u0442\u043a\u0443 next4    mov AH,2           ; \u0434\u0430, \u0432\u044b\u0432\u043e\u0434\u0438\u043c \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u043c\u043e\u0435 \u044f\u0447\u0435\u0439\u043a\u0438  mov BL, j  mov DL, data_arr[BX]  int 21h  next4:  inc i                 ; \u043f\u0435\u0440\u0435\u0445\u043e\u0434\u0438\u043c \u043d\u0430 \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0438\u0439 \u0441\u0438\u043c\u0432\u043e\u043b \u043c\u0430\u0441\u0441\u0438\u0432\u0430 \u043a\u043e\u043c\u0430\u043d\u0434  mov BL, i  mov DL, str_arr [BX]     loop prev             mov AX, 4c00h        ; \u0437\u0430\u0432\u0435\u0440\u0448\u0435\u043d\u0438\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b    int 21h  text ends  data segment            str_arr DB  2Bh,3Eh,2Bh,2Bh,'$' ; \u043a\u043e\u0434 +&gt;++ data_arr DB 0,0,0,0,0,0,0,0,0,0,'$'  ; \u0434\u0430\u043d\u043d\u044b\u0435 i DB 0, '$'                              ;\u0438\u043d\u0434\u0435\u043a\u0441 \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u0430 \u043c\u0430\u0441\u0441\u0438\u0432\u0430 \u043a\u043e\u043c\u0430\u043d\u0434  j DB 0, '$'                             ;\u0438\u043d\u0434\u0435\u043a\u0441 \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u0430 \u043c\u0430\u0441\u0441\u0438\u0432\u0430 \u0434\u0430\u043d\u043d\u044b\u0445 data ends  stk segment stack        db 100h dup (0)       ; \u0440\u0435\u0437\u0435\u0440\u0432\u0438\u0440\u0443\u0435\u043c 256 \u044f\u0447\u0435\u0435\u043a stk ends end begin      <\/code><\/pre>\n<p>  <img decoding=\"async\" src=\"https:\/\/habrastorage.org\/webt\/ux\/go\/pu\/uxgopu8kbhaufpbzl_sri2os1om.jpeg\"><br \/>  \u0426\u0438\u043a\u043b \u0440\u0430\u0431\u043e\u0442\u0430\u0435\u0442 \u0442\u0430\u043a: <br \/>  \u0435\u0441\u043b\u0438 \u0442\u0435\u043a\u0443\u0449\u0438\u0439 \u044d\u043b\u0435\u043c\u0435\u043d\u0442 \u0441\u0442\u0440\u043e\u043a\u0438 <b>str_arr<\/b> \u043d\u0435 <math><img decoding=\"async\" src=\"https:\/\/habrastorage.org\/getpro\/habr\/formulas\/ae4\/dc5\/c6f\/ae4dc5c6fd4ec28ba4b81a2ec09d88b9.svg\" alt=\"$+$\" data-tex=\"inline\"><\/math> \u0442\u043e \u043f\u0435\u0440\u0435\u043f\u0440\u044b\u0433\u0438\u0432\u0430\u0435\u043c \u043d\u0430 \u043c\u0435\u0442\u043a\u0443 <b>next:<\/b> (\u0438\u043d\u0430\u0447\u0435 \u0432\u044b\u043f\u043e\u043b\u043d\u044f\u0435\u043c <math><img decoding=\"async\" src=\"https:\/\/habrastorage.org\/getpro\/habr\/formulas\/ae4\/dc5\/c6f\/ae4dc5c6fd4ec28ba4b81a2ec09d88b9.svg\" alt=\"$+$\" data-tex=\"inline\"><\/math>)<br \/>  \u0435\u0441\u043b\u0438 \u0442\u0435\u043a\u0443\u0449\u0438\u0439 \u044d\u043b\u0435\u043c\u0435\u043d\u0442 \u0441\u0442\u0440\u043e\u043a\u0438 <b>str_arr<\/b> \u043d\u0435 <math><img decoding=\"async\" src=\"https:\/\/habrastorage.org\/getpro\/habr\/formulas\/d3d\/f50\/b83\/d3df50b83f85c2e599b5a46b9d893c5e.svg\" alt=\"$-$\" data-tex=\"inline\"><\/math> \u0442\u043e \u043f\u0435\u0440\u0435\u043f\u0440\u044b\u0433\u0438\u0432\u0430\u0435\u043c \u043d\u0430 \u043c\u0435\u0442\u043a\u0443 <b>next1:<\/b><br \/>  \u0435\u0441\u043b\u0438 \u0442\u0435\u043a\u0443\u0449\u0438\u0439 \u044d\u043b\u0435\u043c\u0435\u043d\u0442 \u0441\u0442\u0440\u043e\u043a\u0438 <b>str_arr<\/b> \u043d\u0435 <math><img decoding=\"async\" src=\"https:\/\/habrastorage.org\/getpro\/habr\/formulas\/bb8\/584\/32f\/bb858432f47555a0d788db318e239a26.svg\" alt=\"$&gt;$\" data-tex=\"inline\"><\/math> \u0442\u043e \u043f\u0435\u0440\u0435\u043f\u0440\u044b\u0433\u0438\u0432\u0430\u0435\u043c \u043d\u0430 \u043c\u0435\u0442\u043a\u0443 <b>next2:<\/b><br \/>  \u0435\u0441\u043b\u0438 \u0442\u0435\u043a\u0443\u0449\u0438\u0439 \u044d\u043b\u0435\u043c\u0435\u043d\u0442 \u0441\u0442\u0440\u043e\u043a\u0438 <b>str_arr<\/b> \u043d\u0435 <math><img decoding=\"async\" src=\"https:\/\/habrastorage.org\/getpro\/habr\/formulas\/4ee\/f0a\/98b\/4eef0a98bd2fbee6f567105f68746b3a.svg\" alt=\"$&lt;$\" data-tex=\"inline\"><\/math> \u0442\u043e \u043f\u0435\u0440\u0435\u043f\u0440\u044b\u0433\u0438\u0432\u0430\u0435\u043c \u043d\u0430 \u043c\u0435\u0442\u043a\u0443 <b>next3:<\/b><br \/>  \u0435\u0441\u043b\u0438 \u0442\u0435\u043a\u0443\u0449\u0438\u0439 \u044d\u043b\u0435\u043c\u0435\u043d\u0442 \u0441\u0442\u0440\u043e\u043a\u0438 <b>str_arr<\/b> \u043d\u0435 <math><img decoding=\"async\" src=\"https:\/\/habrastorage.org\/getpro\/habr\/formulas\/e2a\/3a9\/50b\/e2a3a950bf62fd38282411f3c4f00ba4.svg\" alt=\"$.$\" data-tex=\"inline\"><\/math> \u0442\u043e \u043f\u0435\u0440\u0435\u043f\u0440\u044b\u0433\u0438\u0432\u0430\u0435\u043c \u043d\u0430 \u043c\u0435\u0442\u043a\u0443 <b>next4:<\/b><br \/>  \u041f\u043e\u0441\u043b\u0435 \u043c\u0435\u0442\u043a\u0438 <b>next4:<\/b> \u0443\u0432\u0435\u043b\u0438\u0447\u0438\u0432\u0430\u0435\u043c \u0438\u043d\u0434\u0435\u043a\u0441 \u0441\u0442\u0440\u043e\u043a\u0438 <b>str_arr<\/b> \u0438 \u043f\u0440\u044b\u0433\u0430\u0435\u043c \u0432 \u043d\u0430\u0447\u0430\u043b\u043e \u0446\u0438\u043a\u043b\u0430 \u2014 \u043d\u0430 \u043c\u0435\u0442\u043a\u0443 <b>prev:<\/b><\/p>\n<p>  \u0414\u0430\u043b\u0435\u0435, \u0434\u043e\u0431\u0430\u0432\u0438\u043c <b>[<\/b> \u0438 <b>]<\/b><br \/>  \u0414\u043e\u0431\u0430\u0432\u0438\u043c \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0443\u044e <b>i_stor<\/b>.<br \/>  \u0415\u0441\u043b\u0438 \u0442\u0435\u043a\u0443\u0449\u0438\u0439 \u044d\u043b\u0435\u043c\u0435\u043d\u0442 \u043f\u0440\u043e\u0448\u0451\u043b \u043f\u0440\u043e\u0432\u0435\u0440\u043a\u0443 \u043d\u0430 <b>[<\/b>, \u0442\u043e \u043f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u043c \u0442\u0435\u043a\u0443\u0449\u0438\u0439 \u044d\u043b\u0435\u043c\u0435\u043d\u0442 \u043c\u0430\u0441\u0441\u0438\u0432\u0430 <b>data_arr<\/b> \u043d\u0430 \u043d\u043e\u043b\u044c, \u0438, \u0435\u0441\u043b\u0438 \u044d\u043b\u0435\u043c\u0435\u043d\u0442 \u0440\u0430\u0432\u0435\u043d \u043d\u0443\u043b\u044e, \u043f\u0435\u0440\u0435\u043f\u0440\u044b\u0433\u0438\u0432\u0430\u0435\u043c \u0434\u0430\u043b\u044c\u0448\u0435 (\u043d\u0430 \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0443\u044e \u043c\u0435\u0442\u043a\u0443), \u0432 \u043f\u0440\u043e\u0442\u0438\u0432\u043d\u043e\u043c \u0441\u043b\u0443\u0447\u0430\u0435 \u0437\u0430\u0433\u0440\u0443\u0436\u0430\u0435\u043c \u0432 <b>i_stor<\/b> \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0438\u0437 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u043e\u0439 <b>i<\/b>.  <\/p>\n<pre><code>next4:  cmp DL, 5Bh         ; \u044f\u0447\u0435\u0439\u043a\u0430 \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u0442 [  jne next5           ; \u043d\u0435\u0442, \u043f\u0435\u0440\u0435\u0445\u043e\u0434\u0438\u043c \u043d\u0430 \u043c\u0435\u0442\u043a\u0443 next5  mov BL, j  mov DL, data_arr[BX]  cmp DL, 00          ; \u0434\u0430, \u043f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u043c \u0442\u0435\u043a\u0443\u0449\u0438\u0439 \u044d\u043b\u0435\u043c\u0435\u043d\u0442 data_arr \u043d\u0430 \u043d\u043e\u043b\u044c    jz next5            ; \u0435\u0441\u043b\u0438 \u043d\u043e\u043b\u044c, \u043f\u0440\u044b\u0433\u0430\u0435\u043c \u0434\u0430\u043b\u044c\u0448\u0435  mov DL, i           ; \u0438\u043d\u0430\u0447\u0435 \u0437\u0430\u0433\u0440\u0443\u0436\u0430\u0435\u043c   mov i_stor, Dl      ; \u0432 i_stor \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u043e\u0439 i  next5: <\/code><\/pre>\n<p>  \u041f\u0440\u0438 \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u043a\u0435 \u0437\u0430\u043a\u0440\u044b\u0432\u0430\u044e\u0449\u0435\u0439 \u0441\u043a\u043e\u0431\u043a\u0438 <b>]<\/b>, \u0435\u0441\u043b\u0438 <b>data_arr<\/b> \u043d\u0435 \u043d\u043e\u043b\u044c, \u0442\u043e \u0432 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0443\u044e <b>i<\/b> \u0438\u0437 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u043e\u0439 <b>i_stor<\/b> \u0437\u0430\u0433\u0440\u0443\u0436\u0430\u0435\u043c \u0430\u0434\u0440\u0435\u0441 \u043e\u0442\u043a\u0440\u044b\u0432\u0430\u044e\u0449\u0435\u0439 \u0441\u043a\u043e\u0431\u043a\u0438 <b>[<\/b><\/p>\n<pre><code>next5:  cmp DL, 5Dh         ; \u044f\u0447\u0435\u0439\u043a\u0430 \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u0442 ]  jne next6           ; \u043d\u0435\u0442, \u043f\u0435\u0440\u0435\u0445\u043e\u0434\u0438\u043c \u043d\u0430 \u043c\u0435\u0442\u043a\u0443 next6  mov BL, j  mov DL, data_arr[BX]  cmp DL, 00          ; \u0434\u0430, \u043f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u043c \u0442\u0435\u043a\u0443\u0449\u0438\u0439 \u044d\u043b\u0435\u043c\u0435\u043d\u0442 data_arr \u043d\u0430 \u043d\u043e\u043b\u044c    jz next5            ; \u0435\u0441\u043b\u0438 \u043d\u043e\u043b\u044c, \u043f\u0440\u044b\u0433\u0430\u0435\u043c \u0434\u0430\u043b\u044c\u0448\u0435  mov DL, i_stor      ; \u0438\u043d\u0430\u0447\u0435 \u0437\u0430\u0433\u0440\u0443\u0436\u0430\u0435\u043c   mov i, Dl           ; \u0432 i_stor \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u043e\u0439 i  next6: <\/code><\/pre>\n<p>  \u041f\u0440\u043e\u0432\u0435\u0440\u0438\u043c \u043a\u043e\u0434 <math><img decoding=\"async\" src=\"https:\/\/habrastorage.org\/getpro\/habr\/formulas\/af3\/ddc\/8fa\/af3ddc8fa6b566762a7c64d6133cd502.svg\" alt=\"$+++++[&gt;+&lt;-]$\" data-tex=\"inline\"><\/math>  <\/p>\n<pre><code>text segment                     ; bf4.asm assume cs:text, ds:data, ss:stk begin:   ;\u041f\u043e\u0434\u0433\u043e\u0442\u043e\u0432\u0438\u043c \u0432\u0441\u0435 \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e\u0435   mov AX,data        ; \u043d\u0430\u0441\u0442\u0440\u0430\u0438\u0432\u0430\u0435\u043c \u0441\u0435\u0433\u043c\u0435\u043d\u0442 \u0434\u0430\u043d\u043d\u044b\u0445                                          mov DS,AX                mov DL, str_arr    ; \u0437\u0430\u0433\u0440\u0443\u0436\u0430\u0435\u043c \u0432 DL 1\u0443\u044e \u043a\u043e\u043c\u0430\u043d\u0434\u0443    mov CX, 50h        ; 80 \u0442\u0430\u043a\u0442\u043e\u0432 prev:                      cmp DL, 2Bh         ; \u044f\u0447\u0435\u0439\u043a\u0430 \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u0442 +  jne next            ; \u043d\u0435\u0442, \u043f\u0435\u0440\u0435\u0445\u043e\u0434\u0438\u043c \u043d\u0430 \u043c\u0435\u0442\u043a\u0443 next    mov BL, j           ; \u0437\u0430\u0433\u0440\u0443\u0436\u0430\u0435\u043c \u0432 BL \u0438\u043d\u0434\u0435\u043a\u0441 \u0434\u0430\u043d\u043d\u044b\u0445  inc data_arr[BX]    ; \u0434\u0430, \u0443\u0432\u0435\u043b\u0438\u0447\u0438\u0432\u0430\u0435\u043c  \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0432 \u044f\u0447\u0435\u0439\u043a\u0435 \u043d\u0430 1 next:   cmp DL, 2Dh         ; \u044f\u0447\u0435\u0439\u043a\u0430 \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u0442 -  jne next1           ; \u043d\u0435\u0442, \u043f\u0435\u0440\u0435\u0445\u043e\u0434\u0438\u043c \u043d\u0430 \u043c\u0435\u0442\u043a\u0443 next1    mov BL, j   dec data_arr[BX]    ;BX, \u043d\u043e \u043d\u0435 Bl  next1:   cmp DL, 3Eh         ; \u044f\u0447\u0435\u0439\u043a\u0430 \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u0442 &gt;  jne next2           ; \u043d\u0435\u0442, \u043f\u0435\u0440\u0435\u0445\u043e\u0434\u0438\u043c \u043d\u0430 \u043c\u0435\u0442\u043a\u0443 next2    inc j               ; \u0434\u0430, \u043f\u0435\u0440\u0435\u0445\u043e\u0434\u0438\u043c \u043d\u0430 \u0441\u0434\u0435\u0434\u0443\u044e\u0449\u0438\u0439 \u044d\u043b\u0435\u043c\u0435\u043d\u0442 \u043c\u0430\u0441\u0441\u0438\u0432\u0430 data_arr next2:   cmp DL, 3Ch         ; \u044f\u0447\u0435\u0439\u043a\u0430 \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u0442 &lt;  jne next3           ; \u043d\u0435\u0442, \u043f\u0435\u0440\u0435\u0445\u043e\u0434\u0438\u043c \u043d\u0430 \u043c\u0435\u0442\u043a\u0443 next3    dec j               ; \u0434\u0430, \u043f\u0435\u0440\u0435\u0445\u043e\u0434\u0438\u043c \u043d\u0430 \u043f\u0440\u0435\u0434\u044b\u0434\u0443\u0449\u0438\u0439 \u044d\u043b\u0435\u043c\u0435\u043d\u0442 \u043c\u0430\u0441\u0441\u0438\u0432\u0430 data_arr next3:   cmp DL, 2Eh         ; \u044f\u0447\u0435\u0439\u043a\u0430 \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u0442 .  jne next4           ; \u043d\u0435\u0442, \u043f\u0435\u0440\u0435\u0445\u043e\u0434\u0438\u043c \u043d\u0430 \u043c\u0435\u0442\u043a\u0443 next4    mov AH,2            ; \u0434\u0430, \u0432\u044b\u0432\u043e\u0434\u0438\u043c \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u043c\u043e\u0435 \u044f\u0447\u0435\u0439\u043a\u0438  mov BL, j  mov DL, data_arr[BX]  int 21h next4:  cmp DL, 5Bh         ; \u044f\u0447\u0435\u0439\u043a\u0430 \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u0442 [  jne next5           ; \u043d\u0435\u0442, \u043f\u0435\u0440\u0435\u0445\u043e\u0434\u0438\u043c \u043d\u0430 \u043c\u0435\u0442\u043a\u0443 next5  mov BL, j  mov DL, data_arr[BX]  cmp DL, 00          ; \u0434\u0430, \u043f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u043c \u0442\u0435\u043a\u0443\u0449\u0438\u0439 \u044d\u043b\u0435\u043c\u0435\u043d\u0442 data_arr \u043d\u0430 \u043d\u043e\u043b\u044c    jz next5            ; \u0435\u0441\u043b\u0438 \u043d\u043e\u043b\u044c, \u043f\u0440\u044b\u0433\u0430\u0435\u043c \u0434\u0430\u043b\u044c\u0448\u0435  mov DL, i           ; \u0438\u043d\u0430\u0447\u0435 \u0437\u0430\u0433\u0440\u0443\u0436\u0430\u0435\u043c   mov i_stor, Dl      ; \u0432 i_stor \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u043e\u0439 i  next5:  cmp DL, 5Dh         ; \u044f\u0447\u0435\u0439\u043a\u0430 \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u0442 ]  jne next6           ; \u043d\u0435\u0442, \u043f\u0435\u0440\u0435\u0445\u043e\u0434\u0438\u043c \u043d\u0430 \u043c\u0435\u0442\u043a\u0443 next6  mov BL, j  mov DL, data_arr[BX]  cmp DL, 00          ; \u0434\u0430, \u043f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u043c \u0442\u0435\u043a\u0443\u0449\u0438\u0439 \u044d\u043b\u0435\u043c\u0435\u043d\u0442 data_arr \u043d\u0430 \u043d\u043e\u043b\u044c    jz next5            ; \u0435\u0441\u043b\u0438 \u043d\u043e\u043b\u044c, \u043f\u0440\u044b\u0433\u0430\u0435\u043c \u0434\u0430\u043b\u044c\u0448\u0435  mov DL, i_stor      ; \u0438\u043d\u0430\u0447\u0435 \u0437\u0430\u0433\u0440\u0443\u0436\u0430\u0435\u043c   mov i, Dl           ; \u0432 i_stor \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u043e\u0439 i  next6:  inc i               ; \u043f\u0435\u0440\u0435\u0445\u043e\u0434\u0438\u043c \u043a \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0435\u0439 \u043a\u043e\u043c\u0430\u043d\u0434\u0435  mov BL, i  mov DL, str_arr[BX]     loop prev          ; \u043f\u0440\u044b\u0433\u0430\u0435\u043c \u043d\u0430 \u043c\u0435\u0442\u043a\u0443 prev:            mov AX, 4c00h      ; \u0437\u0430\u0432\u0435\u0440\u0448\u0435\u043d\u0438\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b    int 21h  text ends  data segment             str_arr DB  2Bh,2Bh,2Bh,2Bh,5Bh, 3Eh,2Bh,3Ch,2Dh ,5Dh, '$'   ; \u043a\u043e\u0434 ++++[&gt;+&lt;-]  data_arr DB 0,0,0,0,0,0,0,0,0,0,'$'  ; \u0434\u0430\u043d\u043d\u044b\u0435  i DB 0,'$'                              ;\u0438\u043d\u0434\u0435\u043a\u0441 \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u0430 \u043c\u0430\u0441\u0441\u0438\u0432\u0430 \u043a\u043e\u043c\u0430\u043d\u0434   j DB 0,'$'                            ;\u0438\u043d\u0434\u0435\u043a\u0441 \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u0430 \u043c\u0430\u0441\u0441\u0438\u0432\u0430 \u0434\u0430\u043d\u043d\u044b\u0445  i_stor DB 0,'$' data ends  stk segment stack        db 100h dup (0)       ; \u0440\u0435\u0437\u0435\u0440\u0432\u0438\u0440\u0443\u0435\u043c 256 \u044f\u0447\u0435\u0435\u043a stk ends end begin       <\/code><\/pre>\n<p>  <img decoding=\"async\" src=\"https:\/\/habrastorage.org\/webt\/ar\/0w\/49\/ar0w49wleplzlbnl0k3rrrxo8-a.jpeg\"><\/p>\n<p>  \u0414\u043e\u0431\u0430\u0432\u0438\u043c \u0444\u0443\u043d\u043a\u0446\u0438\u044e \u0432\u0432\u043e\u0434\u0430 \u0441\u0442\u0440\u043e\u043a\u0438 3fh \u043f\u0440\u0435\u0440\u044b\u0432\u0430\u043d\u0438\u044f 21h  <\/p>\n<pre><code>text segment                     ;bf5.asm assume cs:text,ds:data, ss: stk begin:    ;\u041f\u043e\u0434\u0433\u043e\u0442\u043e\u0432\u0438\u043c \u0432\u0441\u0435 \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e\u0435   mov AX,data        ; \u043d\u0430\u0441\u0442\u0440\u0430\u0438\u0432\u0430\u0435\u043c \u0441\u0435\u0433\u043c\u0435\u043d\u0442 \u0434\u0430\u043d\u043d\u044b\u0445                                          mov DS,AX   ;;;   mov ah, 3fh        ; \u0444\u0443\u043d\u043a\u0446\u0438\u044f \u0432\u0432\u043e\u0434\u0430   mov cx, 100h\t     ; 256 \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u0432   mov dx,OFFSET str_arr   int 21h   ;;;                mov DL, str_arr    ; \u0437\u0430\u0433\u0440\u0443\u0436\u0430\u0435\u043c \u0432 DL 1\u0443\u044e \u043a\u043e\u043c\u0430\u043d\u0434\u0443    mov CX, 900h        ; 2304 \u0442\u0430\u043a\u0442\u043e\u0432 prev:                      cmp DL, 2Bh         ; \u044f\u0447\u0435\u0439\u043a\u0430 \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u0442 +  jne next            ; \u043d\u0435\u0442, \u043f\u0435\u0440\u0435\u0445\u043e\u0434\u0438\u043c \u043d\u0430 \u043c\u0435\u0442\u043a\u0443 next    mov BL, j           ; \u0437\u0430\u0433\u0440\u0443\u0436\u0430\u0435\u043c \u0432 BL \u0438\u043d\u0434\u0435\u043a\u0441 \u0434\u0430\u043d\u043d\u044b\u0445  inc data_arr[BX]    ; \u0434\u0430, \u0443\u0432\u0435\u043b\u0438\u0447\u0438\u0432\u0430\u0435\u043c  \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0432 \u044f\u0447\u0435\u0439\u043a\u0435 \u043d\u0430 1 next:   cmp DL, 2Dh         ; \u044f\u0447\u0435\u0439\u043a\u0430 \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u0442 -  jne next1           ; \u043d\u0435\u0442, \u043f\u0435\u0440\u0435\u0445\u043e\u0434\u0438\u043c \u043d\u0430 \u043c\u0435\u0442\u043a\u0443 next1    mov BL, j   dec data_arr[BX]    ;BX, \u043d\u043e \u043d\u0435 Bl  next1:   cmp DL, 3Eh         ; \u044f\u0447\u0435\u0439\u043a\u0430 \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u0442 &gt;  jne next2           ; \u043d\u0435\u0442, \u043f\u0435\u0440\u0435\u0445\u043e\u0434\u0438\u043c \u043d\u0430 \u043c\u0435\u0442\u043a\u0443 next2    inc j               ; \u0434\u0430, \u043f\u0435\u0440\u0435\u0445\u043e\u0434\u0438\u043c \u043d\u0430 \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0438\u0439 \u044d\u043b\u0435\u043c\u0435\u043d\u0442 \u043c\u0430\u0441\u0441\u0438\u0432\u0430 data_arr next2:   cmp DL, 3Ch         ; \u044f\u0447\u0435\u0439\u043a\u0430 \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u0442 &lt;  jne next3           ; \u043d\u0435\u0442, \u043f\u0435\u0440\u0435\u0445\u043e\u0434\u0438\u043c \u043d\u0430 \u043c\u0435\u0442\u043a\u0443 next3    dec j               ; \u0434\u0430, \u043f\u0435\u0440\u0435\u0445\u043e\u0434\u0438\u043c \u043d\u0430 \u043f\u0440\u0435\u0434\u044b\u0434\u0443\u0449\u0438\u0439 \u044d\u043b\u0435\u043c\u0435\u043d\u0442 \u043c\u0430\u0441\u0441\u0438\u0432\u0430 data_arr next3:   cmp DL, 2Eh         ; \u044f\u0447\u0435\u0439\u043a\u0430 \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u0442 .  jne next4           ; \u043d\u0435\u0442, \u043f\u0435\u0440\u0435\u0445\u043e\u0434\u0438\u043c \u043d\u0430 \u043c\u0435\u0442\u043a\u0443 next4    mov AH,2            ; \u0434\u0430, \u0432\u044b\u0432\u043e\u0434\u0438\u043c \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u043c\u043e\u0435 \u044f\u0447\u0435\u0439\u043a\u0438  mov BL, j  mov DL, data_arr[BX]  int 21h next4:  cmp DL, 5Bh         ; \u044f\u0447\u0435\u0439\u043a\u0430 \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u0442 [  jne next5           ; \u043d\u0435\u0442, \u043f\u0435\u0440\u0435\u0445\u043e\u0434\u0438\u043c \u043d\u0430 \u043c\u0435\u0442\u043a\u0443 next5  mov BL, j  mov DL, data_arr[BX]  cmp DL, 00          ; \u0434\u0430, \u043f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u043c \u0442\u0435\u043a\u0443\u0449\u0438\u0439 \u044d\u043b\u0435\u043c\u0435\u043d\u0442 data_arr \u043d\u0430 \u043d\u043e\u043b\u044c    jz next5            ; \u0435\u0441\u043b\u0438 \u043d\u043e\u043b\u044c, \u043f\u0440\u044b\u0433\u0430\u0435\u043c \u0434\u0430\u043b\u044c\u0448\u0435  mov DL, i           ; \u0438\u043d\u0430\u0447\u0435 \u0437\u0430\u0433\u0440\u0443\u0436\u0430\u0435\u043c   mov i_stor, Dl      ; \u0432 i_stor \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u043e\u0439 i next5:  cmp DL, 5Dh         ; \u044f\u0447\u0435\u0439\u043a\u0430 \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u0442 ]  jne next6           ; \u043d\u0435\u0442, \u043f\u0435\u0440\u0435\u0445\u043e\u0434\u0438\u043c \u043d\u0430 \u043c\u0435\u0442\u043a\u0443 next6  mov BL, j  mov DL, data_arr[BX]  cmp DL, 00          ; \u0434\u0430, \u043f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u043c \u0442\u0435\u043a\u0443\u0449\u0438\u0439 \u044d\u043b\u0435\u043c\u0435\u043d\u0442 data_arr \u043d\u0430 \u043d\u043e\u043b\u044c    jz next5            ; \u0435\u0441\u043b\u0438 \u043d\u043e\u043b\u044c, \u043f\u0440\u044b\u0433\u0430\u0435\u043c \u0434\u0430\u043b\u044c\u0448\u0435  mov DL, i_stor      ; \u0438\u043d\u0430\u0447\u0435 \u0437\u0430\u0433\u0440\u0443\u0436\u0430\u0435\u043c   mov i, Dl           ; \u0432 i_stor \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u043e\u0439 i  next6:  inc i               ; \u043f\u0435\u0440\u0435\u0445\u043e\u0434\u0438\u043c \u043a \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0435\u0439 \u043a\u043e\u043c\u0430\u043d\u0434\u0435  mov BL, i  mov DL, str_arr[BX]     loop prev          ; \u043f\u0440\u044b\u0433\u0430\u0435\u043c \u043d\u0430 \u043c\u0435\u0442\u043a\u0443 prev:      MOV    AH,2       ; \u043f\u0435\u0440\u0435\u0445\u043e\u0434\u0438\u043c \u043d\u0430 \u043d\u043e\u0432\u0443\u044e \u0441\u0442\u0440\u043e\u043a\u0443  MOV    DL,0Ah       INT    21h          mov AX, 4c00h      ; \u0437\u0430\u0432\u0435\u0440\u0448\u0435\u043d\u0438\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b    int 21h  text ends  data segment              str_arr DB 100h DUP('$')\t; \u0431\u0443\u0444\u0435\u0440 \u043d\u0430 256 \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u0432  data_arr DB 0,0,0,0,0,0,0,0,0,0,'$'  ; \u0434\u0430\u043d\u043d\u044b\u0435  i DB 0,'$'                              ;\u0438\u043d\u0434\u0435\u043a\u0441 \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u0430 \u043c\u0430\u0441\u0441\u0438\u0432\u0430 \u043a\u043e\u043c\u0430\u043d\u0434   j DB 0,'$'                            ;\u0438\u043d\u0434\u0435\u043a\u0441 \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u0430 \u043c\u0430\u0441\u0441\u0438\u0432\u0430 \u0434\u0430\u043d\u043d\u044b\u0445  i_stor DB 0,'$' data ends  stk segment para stack   db 100h dup (0)       ; \u0440\u0435\u0437\u0435\u0440\u0432\u0438\u0440\u0443\u0435\u043c 256 \u044f\u0447\u0435\u0435\u043a stk ends end begin       <\/code><\/pre>\n<p>  \u0412\u043e\u0437\u043c\u043e\u0436\u043d\u043e, \u0441\u043d\u0430\u0447\u0430\u043b\u0430 \u043d\u0430\u0434\u043e \u0432\u044b\u0447\u0438\u0441\u043b\u044f\u0442\u044c \u0434\u043b\u0438\u043d\u0443 \u0441\u0442\u0440\u043e\u043a\u0438 \u0438 \u043f\u043e \u044d\u0442\u043e\u043c\u0443 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044e \u0432\u044b\u0447\u0438\u0441\u043b\u044f\u0442\u044c \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u0442\u0430\u043a\u0442\u043e\u0432 \u0446\u0438\u043a\u043b\u0430 (\u044f \u043f\u043e\u043a\u0430 \u043d\u0435 \u0440\u0430\u0437\u043e\u0431\u0440\u0430\u043b\u0441\u044f). <\/p>\n<p>  <a href=\"https:\/\/github.com\/demsp\/bf_habr\">\u0421\u0441\u044b\u043b\u043a\u0430<\/a> \u043d\u0430 github \u0441 \u043b\u0438\u0441\u0442\u0438\u043d\u0433\u0430\u043c\u0438 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c.<\/div>\n<p>        <script class=\"js-mediator-script\">!function(e){function t(t,n){if(!(n in e)){for(var r,a=e.document,i=a.scripts,o=i.length;o--;)if(-1!==i[o].src.indexOf(t)){r=i[o];break}if(!r){r=a.createElement(\"script\"),r.type=\"text\/javascript\",r.async=!0,r.defer=!0,r.src=t,r.charset=\"UTF-8\";var d=function(){var e=a.getElementsByTagName(\"script\")[0];e.parentNode.insertBefore(r,e)};\"[object Opera]\"==e.opera?a.addEventListener?a.addEventListener(\"DOMContentLoaded\",d,!1):e.attachEvent(\"onload\",d):d()}}}t(\"\/\/mediator.mail.ru\/script\/2820404\/\",\"_mediator\")}(window);<\/script>     <br \/> \u0441\u0441\u044b\u043b\u043a\u0430 \u043d\u0430 \u043e\u0440\u0438\u0433\u0438\u043d\u0430\u043b \u0441\u0442\u0430\u0442\u044c\u0438 <a href=\"https:\/\/habr.com\/post\/423121\/\"> https:\/\/habr.com\/post\/423121\/<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"\n<div class=\"post__text post__text-html js-mediator-article\"><img decoding=\"async\" src=\"https:\/\/habrastorage.org\/webt\/x4\/8c\/nl\/x48cnlebuoswjtyt8qjveh5xira.jpeg\"><\/p>\n<p>  \u0414\u043b\u044f \u043d\u0430\u0447\u0430\u043b\u0430 \u043d\u0430\u043f\u0438\u0448\u0435\u043c \u0438\u043d\u0442\u0435\u0440\u043f\u0440\u0435\u0442\u0430\u0442\u043e\u0440 \u043d\u0430 \u0432\u044b\u0441\u043e\u043a\u043e\u0443\u0440\u043e\u0432\u043d\u0435\u0432\u043e\u043c \u044f\u0437\u044b\u043a\u0435, \u043d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, \u043d\u0430 Pascal&#8217;e.<\/p>\n<p>  \u041c\u0430\u0441\u0441\u0438\u0432 <b>data_arr<\/b> \u0431\u0443\u0434\u0435\u0442 \u043f\u0440\u0435\u0434\u0441\u0442\u0430\u0432\u043b\u044f\u0442\u044c \u043f\u0430\u043c\u044f\u0442\u044c \u0434\u0430\u043d\u043d\u044b\u0445, \u0441\u0442\u0440\u043e\u043a\u0430 <b>str_arr<\/b> \u0431\u0443\u0434\u0435\u0442 \u0441\u043e\u0434\u0435\u0440\u0436\u0430\u0442\u044c \u043a\u043e\u043c\u0430\u043d\u0434\u044b.<br \/>  \u041d\u0430\u043f\u0438\u0448\u0435\u043c \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0443, \u0432\u044b\u0432\u043e\u0434\u044f\u0449\u0443\u044e \u0441\u0438\u043c\u0432\u043e\u043b, ascii-\u043a\u043e\u0434 \u043a\u043e\u0442\u043e\u0440\u043e\u0433\u043e \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u0435\u0442 \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u0443 <b>+<\/b> (\u043f\u043e\u044d\u0442\u043e\u043c\u0443 \u043d\u0430\u043c \u043d\u0443\u0436\u043d\u044b \u0431\u0443\u0434\u0443\u0442 \u0442\u043e\u043b\u044c\u043a\u043e \u043a\u043e\u043c\u0430\u043d\u0434\u044b <b>+<\/b> \u0438 <b>.<\/b>)   <\/p>\n<pre><code>var  data_arr:array[1..10] of integer;    \/\/ \u043c\u0430\u0441\u0441\u0438\u0432 \u0434\u0430\u043d\u043d\u044b\u0445  str_arr: string;                     \/\/ \u043a\u043e\u043c\u0430\u043d\u0434\u044b    i, j: integer;                       \/\/ \u0438\u043d\u0434\u0435\u043a\u0441\u044b \u0441\u0442\u0440\u043e\u043a\u0438 \u0438 \u043c\u0430\u0441\u0441\u0438\u0432\u0430 begin  j:=1;                  \/\/ \u043d\u0443\u043c\u0435\u0440\u0430\u0446\u0438\u044f \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u043e\u0432 \u043c\u0430\u0441\u0441\u0438\u0432\u0430 (\u0432\u043d\u0435\u0437\u0430\u043f\u043d\u043e) \u043d\u0430\u0447\u0438\u043d\u0430\u0435\u0442\u0441\u044f \u0441 \u0435\u0434\u0438\u043d\u0438\u0446\u044b  readln(str_arr);       \/\/\u0441\u0447\u0438\u0442\u044b\u0432\u0430\u0435\u043c \u0441\u0442\u0440\u043e\u043a\u0443   for i:=1 to length(str_arr) do begin    \/\/ \u0432 \u0446\u0438\u043a\u043b\u0435 \u043e\u0431\u0440\u0430\u0431\u0430\u0442\u044b\u0432\u0430\u0435\u043c \u0441\u0442\u0440\u043e\u043a\u0443   if (str_arr[i]='+') then data_arr[j]:= data_arr[j]+1;   if (str_arr[i]='.') then write(chr(data_arr[j]));  end; end. <\/code><\/pre>\n<p>  \u041a\u043e\u0434 +++++++++++++++++++++++++++++++++. \u0432\u044b\u0434\u0430\u0441\u0442 <b>!<\/b> (ascii-\u043a\u043e\u0434 \u0441\u0438\u043c\u0432\u043e\u043b\u0430 <b>!<\/b> \u0440\u0430\u0432\u0435\u043d 33 ).  <\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[],"tags":[],"class_list":["post-290287","post","type-post","status-publish","format-standard","hentry"],"_links":{"self":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts\/290287","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=290287"}],"version-history":[{"count":0,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts\/290287\/revisions"}],"wp:attachment":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=290287"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=290287"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=290287"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}