Задано некоторое множество М и множество T того же типа. Подсчитать, сколько элементов из множеств T и M совпадает — Pascal(Паскаль)

program _;
const
count=4;
type mnz=set of byte;
     type_array=array[1..count] of byte;
var
M,T,N:mnz;
i,k:integer;
a:type_array;
begin
writeln('Введите элементы множества M');
for i:=1 to count do
begin
write('введите ',i,' -ый элемент');
read(a[i]);
include(M,a[i]);
end;
writeln('Введите элементы множества T');
for i:=1 to count do
begin
write('введите ',i,' -ый элемент');
read(a[i]);
include(T,a[i]);
end;
N:=T*M;
writeln('Количество совпадающих элементов:');
for i:=1 to 256 do
begin
if i in n then inc(k);
end;
writeln(k);
end.

Leave a Comment

− 5 = 1