Множество: Найдите наименьшее среди тех чисел первой таблицы, которые не входят во вторую таблицу

@nero08 · Регистрация: 25.02.2012

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

Даны две таблицы по 10 элементов в каждой. Найдите наименьшее среди тех чисел первой таблицы, которые не входят во вторую таблицу (считая, что хотя бы одно такое число есть).
Ребят помогите пожалуйста сегодня защита практики последняя задача осталась!!!!!!!!!

Kodzaev · 28.06.2012, 13:12

Pascal

Uses crt;
Var
  m,n,mn: Set of Byte;
  i,min: Integer;
  x: Byte;
BEGIN
Clrscr;
Writeln('Введите 1 множество: ');
For i:=1 to 10 do
begin
  Readln(x);
  Include(m,x);
end;
Writeln('Введите 2 множество: ');
For i:=1 to 10 do
begin
  Readln(x);
  Include(n,x);
end;
mn:=m-n;
min:=257;
For i:=0 to 255 do
If i in mn Then Write(i,'   ');
For i:=0 to 255 do
If (i in mn) and (i<min) Then
min:=i;
Writeln;
Writeln('Наименьшее среди тех чисел 1 таблицы, которые не входят во 2: ',min);
Readln
END.

@nero08 0 / 0 / 0 Регистрация: 25.02.2012 Сообщений: 10
		1
	Множество: Найдите наименьшее среди тех чисел первой таблицы, которые не входят во вторую таблицу 28.06.2012, 09:03. Показов 2211. Ответов 1 Метки нет (Все метки) Даны две таблицы по 10 элементов в каждой. Найдите наименьшее среди тех чисел первой таблицы, которые не входят во вторую таблицу (считая, что хотя бы одно такое число есть). Ребят помогите пожалуйста сегодня защита практики последняя задача осталась!!!!!!!!! 0

	28.06.2012, 13:12

Множество: Найдите наименьшее среди тех чисел первой таблицы, которые не входят во вторую таблицу

Решение