745 / Л.Р.№3 / Lab3_var_5

Uses Crt;
Var x1,x2,zn,xr:string; n,i,j,x,k:integer;
begin
ClrScr;
Write(' Input x1 '); readln(x1);
zn:=x1[1];
for i:=1 to 16 do
x1:=concat('0',x1);
Write(' Input x2 '); readln(x2);
for i:=1 to 32 do
xr:=concat('0',xr); j:=16; k:=0;
repeat
x:=0;
If x2[j]='1' then
for n:=32 downto 1 do
begin
If ((ord(xr[n])+ord(x1[n])+x)=96) then
begin
xr[n]:='0'; x:=0;
end else
If ((ord(xr[n])+ord(x1[n])+x)=97) then
begin
xr[n]:='1'; x:=0;
end else
If ((ord(xr[n])+ord(x1[n])+x)=98) then
begin
xr[n]:='0'; x:=1;
end else
begin
xr[n]:='1'; x:=1;
end;
end;
for i:=16-k to 32-k do
x1[i-1]:=x1[i];
x1[32-k]:='0';
j:=j-1; x:=0; k:=k+1;
until j<1;
If (x2[1]=zn[1]) then xr[1]:='0' else xr[1]:='1';
Write(' xr = ',xr);
Readkey;
end.