Задача № 20

Написать программу на языке программирования для задания: даны два многозначных числа. Вывести на экран все цифры первого числа, которые отсутствуют во втором и все цифры второго числа, отсутствующие в первом (использовать тип «множество»).

Пример решения –

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var m1,m2,a:set of byte;

s1,s2:string;

i:integer;

begin

s1:=Edit1.Text;

s2:=Edit2.Text;

Edit3.Text:='';

Edit4.Text:='';

m1:=[];

m2:=[];

for i:=1 to Length(s1) do

if not(StrToInt(s1[i]) in m1) then m1:=m1+[strtoint(s1[i])];

for i:=1 to Length(s2) do

if not(StrToInt(s2[i]) in m2) then m2:=m2+[strtoint(s2[i])];

a:=m1-m2;

for i:=1 to 9 do

if i in a then Edit3.Text:=Edit3.Text+IntToStr(i);

a:=m2-m1;

for i:=1 to 9 do

if i in a then Edit4.Text:=Edit4.Text+IntToStr(i);

end;

end.