5.Задано некоторое множество М и множество Т того же типа.
Подсчитать количество элементов в Т и М, которые не совпадают.
Решение
program
mnojestva;
var
t,m,a:set of byte;
i,k:integer;
begin
randomize;
for i:=1
to 10 do
begin
t:=t+[random(10)];
m:=m+[random(10)];
end;
for i:=1
to 10 do
if i in t then write(i,' ');
writeln;
for i:=1
to 10 do
if i in m then write(i,' ');
writeln;
k:=0;
a:=[];
a:=(t-m)+(m-t);
for i:=1
to 10 do
if i in a then
begin
write(i,' ');
k:=k+1;
end;
writeln(k);
end.