zn2, MultZR (zn1, strtozr (zt2 [r])));:=multzr (zn1, inttozr (2)) ;;
a [n]:=zr_e (zrtostr (zn2));// a [n]:=Floattostr (Zrtoreal (zn2));
a [i]:= | raquo ;;;;;; i:=d + 1 to z - 1 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 [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, # 151; 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 [i]:= | raquo ;;;;;;; d=0; i:=1 to q do ((a [i] lt; gt; | ) 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 [n]:=Floattostr (Zrtoreal (zn2));
a [i]:= | raquo ;;;; i:=1 to q 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 ;; (a [n] lt; gt; 0 ) then:=strtozr (a [i]);
zn2:=strtozr (a [n]);:=divzr (zn1, zn2); [n]:=zr_e (zrtostr (zn2));
a [i]:= | raquo ;; else begin rezul:= Деленіенанульнельзя raquo ;; exit; end ;;
m raquo ;: begin:=i + 1;
while (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) ...
