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 (zn2, MultZR (zn1, strtozr (zt2 [r])));:=multzr (zn1, inttozr (2)) ;;
a [n]:=zr_e (zrtostr (zn2));
a [i]:= | raquo ;;;
l 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));:= 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));
zn2:=divzr (zn2, inttozr (2)); [n]:=zr_e (zrtostr (zn2));
a [i]:= | raquo ;;;;; i:=1 to q do (a [i] lt; gt; | ) thenb [i] of
+ raquo ;: begin n:=i + 1;
while (a [n]= | ) do
begin:=n + 1 ;;:=strtozr (a [i]);
zn2:=strtozr (a [n]);:=sumzr (zn1, zn2); [n]:=zr_e (zrtostr (zn2));
a [i]:= | raquo ;;;
- raquo ;: begin n:=i + 1;
while (a [n]= | ) do
begin:=n + 1 ;;:=strtozr (a [i]);
zn2:=strtozr (a [n]);:=subzr (zn1, zn2); [n]:=zr_e (zrtostr (zn2));
a [i]:= | raquo ;;;
x 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) ;; :=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 [n]:=Floattostr (Zrtoreal (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); ;:=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]) 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 [n]:=Floattostr (Zrtoreal (zn2);
a [i]:= | raquo ;;;;;:=a [t] ;; DestoDr (x2: string; y: integer): string;: string;, x1: extended;: int64; :=strtofloat (x2);:=strtozr (x2);:=ZRToLongInt (zn1, - 1);:=abszr (zn1); y of
: begin (ComparisonZR (zn1, inttozr (0)) lt; gt; 0) do:=divzr (zn1, inttozr (8));:=ZRToLongInt (zn2, - 1);:=multzr (zn2, inttozr (8));:=SubZR (zn1, zn2);:=zrtostr (zn2) + str;:=divzr (zn1, inttozr (8));:=ZRToLongInt (zn1, - 1) ;;;
{while (trunc (x) lt; gt; 0) do:=floattostr (trunc (x) mod 8) + str;:=trunc (x) div 8 ;;; }
: begin (ComparisonZR (zn1, inttozr (0)) lt; gt; 0) do:=divzr (zn1, inttozr (2));:=ZRToLongInt (zn2, - 1);:=multzr (zn2, inttozr (2));:=SubZR (zn1, zn2);:=zrtostr (zn2) + str;:=divzr (zn1, inttozr (2));:=ZRToLongInt (zn1, - 1); ;;
: begin (ComparisonZR (zn1, inttozr (0)) lt; gt; 0) do:=divzr (zn1, inttozr (16));:=ZRToLo...
