Сформировать множество и выделите из него подмножество

@gick · Регистрация: 01.12.2015

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

Напишите программу, которая формирует множество Y=(X1 X2) и выделите из него подмножество Y1 чисел, которые являются четными числами.

Kodzaev · 08.11.2016, 14:13

Pascal

var
  x1, x2, y, y1: set of byte;
  i: byte;
  
procedure random_set(var s: set of byte; power: byte);
var i, x: byte;
begin
  for i := 1 to power do
  begin
    x := Random(15);
    Include(s, x);
    Write(x, ' ')
  end;
  WriteLn
end;
 
begin
  WriteLn('X1:');
  random_set(x1, 5);
  WriteLn('X2:');
  random_set(x2, 5);
  y := x1 - x2;
  WriteLn('Y:');
  for i := 0 to 255 do
    if i in y then
    begin
      if i mod 2 = 0 then Include(y1, i);
      Write(i, ' ')
    end;
  WriteLn;
  WriteLn('Y1:');
  for i := 0 to 255 do
    if i in y1 then Write(i, ' ');
end.

@gick 0 / 0 / 0 Регистрация: 01.12.2015 Сообщений: 22
		1
	Сформировать множество и выделите из него подмножество 08.11.2016, 11:50. Показов 1410. Ответов 1 Метки нет (Все метки) Напишите программу, которая формирует множество Y=(X1 X2) и выделите из него подмножество Y1 чисел, которые являются четными числами. 0

	08.11.2016, 14:13

Сформировать множество и выделите из него подмножество

Решение