745 / Л.Р.№3 / Lab3_var_10

 uses crt;
 var x,y,dob,z,w,q,g,h:string; i:word;

function symma(s3:string;s1:string):string;
  var f,z:boolean; j:integer; s:string;
begin
{ z:=False;
 if s1[1]='1' then
   begin
     z:=True;
     s1[1]:='0';
   end;    }
 s:='';
 f:=false;
 for j:=32 downto 1 do
  begin
   if f then
     if (s1[j]='1') and (s3[j]='1') then
      begin
      s:=concat('1',s);
      f:=true;
      end
       else
         if (s1[j]='0') and (s3[j]='0') then
          begin
          s:=concat('1',s);
          f:=false;
          end
           else
             begin
             s:=concat('0',s);
             f:=true;
             end
    else
      if (s1[j]='1') and (s3[j]='1') then
       begin
       s:=concat('0',s);
       f:=true;
       end
        else
          if (s1[j]='0') and (s3[j]='0') then
           begin
           s:=concat('0',s);
           f:=false;
           end
            else
              begin
              s:=concat('1',s);
              f:=false;
              end;
  end;
 if f then s:=concat('1',s);
{ if z then s[1]:='1'; }
 symma:=s;
end;


begin
clrscr;
write('Vvedite 1-e chislo:'); readln(x);
write('Vvedite 2-e chislo:'); readln(y);
if ((x[1] = '0') and (y[1] = '1')) or ((x[1] = '1') and (y[1] = '0'))
then z := '1'
else z := '0';
x[1] := '0';
y[1] := '0';
x := '0000000000000000' + x;
dob := '00000000000000000000000000000000';
for i := 16 downto 1 do
begin
  if y[16] = '1' then
  begin
    if (i <> 16) then
    begin
      delete(x,1,1);
      x := x + '0';
    end;
    dob := symma(x, dob);
  end;
  delete(y,16,1);
  y := '0' + y;
end;
 dob[1] := z[1];
 writeln('Polychaem: ',dob);
 readkey;
end.