Напечатать общие элементы множеств и количество таких элементов - Pascal ABC

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

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

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

textual
var
  i, count: integer;
  set1, set2, set3: set of integer;
 
begin
  set1 := [1, 2, 3];
  set2 := [2, 3, 4];
  set3 := set1 * set2;
  writeln('Общие элементы:');
  for i := 0 to 255 do
    if i in set3 then 
    begin
      write(i, ' ');
      inc(count);
    end;
  writeln;
  writeln('Их количество = ', count);
  readln;
end.

6   голосов, оценка 3.333 из 5


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