745 / Л.Р.№4 / lab4_var_3

Program LAB_4;
uses crt;
var a,b,c,s,a1,b1:string;
i,j,R:integer;

Procedure OBMIN(var aa:string);
var i:integer;
Begin
i:=length(aa);
while aa[i]<>'1' do dec(i);
for i:=i-1 downto 1 do if aa[i]='0' then aa[i]:='1'
else aa[i]:='0';
end;

Function SUM(var b,a:string):string;
var j:integer; c:string;
begin
r:=0; c:=a;
for j:=16 downto 1 do
begin
if ord(b[j])+ord(c[j])-96+r>1 then
begin
if ord(b[j])+ord(c[j])-96+r>2 then c[j]:='1'
else c[j]:='0';
r:=1;
end
else
begin
if ord(b[j])+ord(c[j])-96+r=1 then c[j]:='1'
else c[j]:='0';
r:=0;
end;
end;
Sum:=c;
end;

Function ERROR(a:string):boolean;
var i:integer;
begin
ERROR:=TRUE;
if length(a)<>8 then ERROR:=FALSE
else for i:=1 to length(a) do if (a[i]<>'1')and(a[i]<>'0') then
ERROR:=false;
end;

Begin
clrscr;
writeln('A,B-?');
readln(a);
readln(b);
if (ERROR(a))and(ERROR(b)) then
begin
if (a[1]='1') and (b[1]='1') then s:='0' else
if (a[1]='0') and (b[1]='0') then s:='0' else s:='1';
a1:=a[1];
b1:=b[1];
delete(a,1,1);
delete(b,1,1);
if a1='1' then Obmin(a);
if b1='1' then Obmin(b);
for i:=1 to 7 do
if a[i]='1' then break;
for j:=1 to 7 do
if b[j]='1' then break;
i:=j-i;
for j:=1 to i do begin
insert('0',b,8);
delete(b,1,1);
end;
c:='0000000';
for j:=1 to i+1 do begin
OBMIN(b);
a:=Sum(a,b);
OBMIN(b);
if a[1]='0' then begin
insert('1',c,8);
delete(c,1,1);
end else begin
insert('0',c,8);
delete(c,1,1);
a:=Sum(a,b);
end;
insert('0',b,0);
delete(b,8,1);
end;
Obmin(b);
a:=Sum(a,b);
Obmin(c);
writeln;
writeln('c=',s,c);
writeln;
writeln('a=',a);
end
else writeln('Pomulka!');
readkey;
end.