Курсовая работа: Доведення теоретико-математичних тотожностей і тверджень

i:=1;j:=1;k:=0;

repeat

if pA[i]<pB[j] then i:=i+1;

if pA[i]>pB[j] then j:=j+1;

if pA[i]=pB[j] then

begin k:=k+1; pC[k]:=pA[i]; i:=i+1;j:=j+1;end;

until (i>pn1) or (j>pn2);

if k = 0 then

begin

write(' A={'); for i:=1 to pn1 do write(pa[i]:3); writeln('}');

write(' B={'); for i:=1 to pn2 do write(pB[i]:3); writeln('}');

write(' C={'); for i:=1 to k do write(pC[i]:3); write('}');

end

else

begin

write(' A={'); for i:=1 to pn1 do write(pa[i]:3); writeln('}');

write(' B={'); for i:=1 to pn2 do write(pB[i]:3); writeln('}');

write(' C={'); for i:=1 to k do write(pC[i]:3); write('}');

end;

writeln;

pk:=k;

readln;

end;

Begin{тіло програми}

k:=15;

For i:=1 to k do U[i]:=i;

Write ('Задайте множину A та ii границю');

write(' na=');REadln (na);

For i:=1 to na do begin write ('A[',i,']= '); Readln(a[i]); end;