Подсчитать, сколько элементов из множеств T и M совпадает

@Lena neznayka · Регистрация: 03.06.2010

Author24 — интернет-сервис помощи студентам

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

@ilys · 15.06.2010, 10:52

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.

@Lena neznayka 0 / 0 / 0 Регистрация: 03.06.2010 Сообщений: 62
		1
	Подсчитать, сколько элементов из множеств T и M совпадает 15.06.2010, 09:59. Показов 1285. Ответов 1 Метки нет (Все метки) Задано некоторое множество М и множество T того же типа. Подсчитать, сколько элементов из множеств T и M совпадает. 0

	15.06.2010, 10:52

Опции темы

Подсчитать, сколько элементов из множеств T и M совпадает

Решение