Question

Se considera multimea A=[1,2,3..6] si multimea B=[2,4..8].Scrieti un program care va afisa reuniunea.(Pascal)

Answer 1

const 

 A=[1,2,3,4,5,6];
 B=[2,4,6,8];
 
var

 C:set of byte;
 i:byte;
 
begin

 C:=A*B;
 
 for i:=1 to 10 do
  if i in C then
   write(i,' ');

end.