Напечатать нечетные элементы, которые входят хотя бы в одно из этих множеств и количество таких элементов - Pascal ABC

Формулировка задачи:

Пусть заданы множество А и множество В целых чисел, напечатать нечетные элементы, которые входят хотя бы в одно из этих множеств и количество таких элементов.

Код к задаче: «Напечатать нечетные элементы, которые входят хотя бы в одно из этих множеств и количество таких элементов - Pascal ABC»

textual
{Пусть заданы множество А и множество В целых чисел, напечатать нечетные
элементы, которые входят хотя бы в одно из этих множеств и количество
таких элементов.}
var
  a,b:set of byte;
  k,i:byte;
begin
  randomize;
  a:=[];
  b:=[];
  for i:=0 to 255 do
    begin
      k:=random(255);
      if not(k in a) then
        include(a,k);
      k:=random(255);
      if not(k in b) then
        include(b,k)
    end;
  writeln('Множество А:');
  for i:=0 to 255 do
    if i in a then
      write(i:4);
  writeln;
  writeln('Множество B:');
  for i:=0 to 255 do
    if i in b then
      write(i:4);
  writeln;
  k:=0;
  writeln('Результат:');
  for i:=0 to 255 do
    if (not odd(i)) and ((i in a) or (i in b)) then
      begin
        write(i:4);
        inc(k);
      end;
  writeln;
  writeln('Количество: ',k);
  readln;
end.

15   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы