="justify"> big: int64;, zt1, zt2, pamet: string;, j, i_local, c, meraisch, t, sk: integer;: array [0..1000] of string;: array [ 0..1000] of char; Unit2;
{$ R * .dfm} zr_e (stroka: string): string; n: integer;:=strtozr (stroka);:=ZRToLongInt (zn, - 1);:=subzr (zn , zn2); (ComparisonZR (zn1, realtozr (0.0000001))=- 1) then:=ZRToLongInt (zn, - 1);:=zrtostr (zn) ;; (ComparisonZR (zn1, realtozr (0.9999))=1) and (ComparisonZR (zn1, realtozr (1))=- 1) then:=ZRToLongInt (zn, 1);:=zrtostr (zn) ;; n:=1 to length (stroka) dostroka [n]= + then [n - 1]:= e raquo ;; (stroka, n, 1) ;; n:=1 to length (stroka) dostroka [n]= - then [n - 1]:= e raquo ;;; _ e:=stroka ;; Rezul2 (q: integer): string;
var d, n, z, 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 ;;;
l raquo ;: begin
n:=i + 1; (a [n]= | ) do
begin:=n + 1 ;;:=strtozr (a [n]);:=ZRToLongInt (zn1, - 1);:=srtozr (a [i]);:=ZRToLongInt (zn2, - 1) ;:=inttozr (0); (ComparisonZR (zn, zn1)=(- 1)) {or (ComparisonZR (zn, zn1)=0))} dо:=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 ;;;
/ 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 rezul2:= Делітьнанульнельзя 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 rezul2:= Делітьнанульнельзя 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 (zn2, MultZR (zn1, strtozr (zt2 [r])));:=multzr (zn1, inttozr (2)) ;;
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
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)...
