;; :=strtozr (a [n]);:=ZRToLongInt (zn1, - 1); (ComparisonZR (zn1, inttozr (0)) lt; gt; 0) do:=divzr (zn1, inttozr (2)) ;: =ZRToLongInt (zn2, - 1);:=multzr (zn2, inttozr (2));:=SubZR (zn1, zn2);:=zrtostr (zn2) + zt1;:=divzr (zn1, inttozr (2)) ;:=ZRToLongInt (zn1, - 1) ;; :=length (zt);:=length (zt1); (obrazec1 gt; obrazec2) then:=obrazec1-obrazec2; r:=1 to trunc (obrazec1) do:= 0 + zt1;:=obrazec2-obrazec1 ; r:=1 to trunc (obrazec1) do:= 0 + zt ;;:=length (zt); r:=trunc (obrazec1) downto 1 do:=inttostr (strtoint (zt [r]) xor strtoint (zt1 [r])) + zt2;:=1; j:=0;:=inttozr (0);:=inttozr (1); r:=length (zt2) downto 1 do:=sumzr (zn2, MultZR (zn1, strtozr (zt2 [r])));:=multzr (zn1, inttozr (2)) ;;
a [n]:=zr_e (zrtostr (zn2));
a [i]:= | raquo ;;;
o raquo ;: begin
n:=i + 1; (a [n]= | ) do
begin:=n + 1 ;;:= raquo ;;:= raquo ;;:= raquo ;;:=strtozr (a [i]);:=ZRToLongInt (zn1, - 1 ); (ComparisonZR (zn1, inttozr (0)) lt; gt; 0) do:=divzr (zn1, inttozr (2));:=ZRToLongInt (zn2, - 1);:=multzr (zn2, inttozr (2 ));:=SubZR (zn1, zn2);:=zrtostr (zn2) + zt;:=divzr (zn1, inttozr (2));:=ZRToLongInt (zn1, - 1) ;; :=length (zt);:=length (zt1); (obrazec1 gt; obrazec2) then:=obrazec1-obrazec2; r:=1 to trunc (obrazec1) do:= 0 + zt1;:=obrazec2-obrazec1 ; r:=1 to trunc (obrazec1) do:= 0 + zt ;;:=length (zt); r:=trunc (obrazec1) downto 1 do:=inttostr (strtoint (zt [r]) or strtoint (zt1 [r])) + zt2;:=1; j:=0;:=inttozr (0);:=inttozr (1); r:=length (zt2) downto 1 do:=sumzr (zn2, MultZR (zn1, strtozr (zt2 [r])));:=multzr (zn1, inttozr (2)) ;;
a [n]:=zr_e (zrtostr (zn2));
a [i]:= | raquo ;;;;;;; d=0;
rezul2:=a [t]; [t]:= | raquo ;;
end; Rezul (q: integer): string;
var z, d, n, r, p: integer;
begin:=0;:=0; i:=1 to q dob [i]= ( then d:=i; i:=d to q dob [i]=) then:=i ;;; [d]:= 0 raquo ;; [z]:= 0 raquo ;; ((z lt; gt; 0) and (d lt; gt; 0)) then begini:=d + 1 to z - 1 do ((a [i] lt; gt; laquo ; | ) and (b [i]= ^ )) then:=i + 1; (a [n]= | ) do:=n + 1 ;;:=strtozr ( a [i]);:=strtozr (a [n]);:=powerzr (zn1, zn2);
a [n]:=zr_e (zrtostr (zn2));
a [i]:= | raquo ;;;; i:=d + 1 to z - 1 do (a [i] lt; gt; | ) thenb [i] of
* raquo ;: begin
n:=i + 1; (a [n]= | ) do
begin:=n + 1 ;;:=strtozr (a [i]);
zn2:=strtozr (a [n]);:=multzr (zn1, zn2); [n]:=zr_e (zrtostr (zn2));
a [i]:= | raquo ;;;
/ raquo ;: begin
n:=i + 1; (a [n]= | ) do
begin:=n + 1 ;;:=strtozr (a [i]);:=strtozr (a [n]); (a [n] lt; gt; 0 ) then:=divzr ( zn1, zn2);
a [n]:=zr_e (zrtostr (zn2));
a [i]:= | raquo ;; begin rezul:= Делітьнанульнельзя raquo ;; exit; end ;;
l raquo ;: begin:=i + 1;
while (a [n]= | ) do
begin:=n + 1 ;;:=strtozr (a [n]);:=ZRToLongInt (zn1, - 1);:=strtozr (a [i]);:=ZRToLongInt (zn2, - 1) ;:=inttozr (0); (ComparisonZR (zn, zn1)=(- 1)) {or (ComparisonZR (zn, zn1)=0))} do:=sumzr (zn, inttozr (1));:= multzr (zn2, inttozr (2)) ;;
a [n]:=zr_e (zrtostr (zn2));
a [i]:= | raquo ;;;
h raquo ;: begin
n:=i + 1; (a [n]= | ) do
begin:=n + 1 ;;:=strtozr (a [n]);:=ZRToLongInt (zn1, - 1);:=strtozr (a [i]);:=ZRToLongInt (zn2, - 1) ;:=inttozr (0); (ComparisonZR (zn, zn1)=(- 1)) {or (ComparisonZR (zn, zn1)=0))} do:=sumzr (zn, inttozr (1));:= divzr (zn2, inttozr (2)) ;;
a [n]:=zr_e (zrtostr (zn2));
a [i]:= | raquo ;;;
m raquo ;: begin
n:=i + 1; (a [n]= | ) do
begin:=n + 1 ;;:=strtozr (a [i]);:=strtozr (a [n]); (a [n] lt; gt; 0 ) then:=divzr ( zn1, zn2);:=ZRToLongInt (zn1, - 1);:=multzr (zn, zn2);:=strtozr (a [i]);:=subzr (zn1, zn);
a [n]:=zr_e (zrtostr (zn2));
a [i]:= | raquo ;; begin rezul:= Делітьнанульнельзя raquo ;; exit; end ;;
a raquo ;: begin:=i + 1;
while (a [n]= | ) do
begin:=n + 1 ;;:= raquo ;;:= raquo ;;:= raquo ;;:=strtozr (a [i]);:=ZRToLongInt (zn1, - 1 ); (ComparisonZR (zn1, inttozr (0)) lt; gt; 0) do:=divzr (zn1, inttozr (2));:=ZRToLongInt (zn2, - 1);:=multzr (zn2, inttozr (2 ));:=SubZR (zn1, zn2);:=zrtostr (zn2) + zt;:=divzr (zn1, inttozr (2));:=ZRToLongInt (zn1, - 1) ;; :=strtozr (a [n]);:=ZRToLongInt (zn1, - 1); (ComparisonZR (zn1, inttozr (0)) lt; gt; 0) do:=divzr (zn1, inttozr (2)) ;: =ZRToLongInt (zn2, - 1);:=multzr (zn2, inttozr (2));:=SubZR (zn1, zn2);:=zrtostr (zn2) + zt1;:=divzr (zn1, inttozr (2)) ;:=ZRToLongInt (zn1, - 1) ;;:=length (zt);:=length (zt1); (obrazec1 gt; obrazec2) then:=obrazec1-obrazec2; r:=1 to trunc (obrazec1) do:= 0 + zt1;:=obrazec2-obrazec1; r:=1 to trunc (obrazec1) do:= 0 + zt ;;:=length (zt); r:=trunc (obrazec1) downto 1 do :=inttostr (strtoint (zt [r]) and strtoint (zt1 [r])) + zt2;:=1; j:=0;:=inttozr (0);:=inttozr (1); r:=length (zt2) downto 1 do:=sumzr (...
