Question

Să se scrie un program care introduce de la tastatură mulțimi de numere din intervalul 10..99(numărul de elemente pentru fiecare mulțime se citește de la tastatură) și afișează intersecția și diferența acestor mulțimi.


PASCAL

Answer 1

program OperatiiCuMultimi;

var a,b,c,d: set of byte;

   n, m, i, num: byte;

begin

   a:=[]; b:=[];

   write('Introdu nr de elemente a multimii A, n= '); read(n);

   writeln('Introdu ',n,' elemente din intervalul 10 .. 99 : ');

   for i:=1 to n do

    begin

      read(num); a:=a+[num];

    end;

   write('Introdu nr de elemente a multimii B, m= '); read(m);

   writeln('Introdu ',m,' elemente din intervalul 10 .. 99 : ');

   for i:=1 to m do

    begin

      read(num); b:=b+[num];

    end;

   c:=a*b;

   d:=a-b;

   writeln(' Intersectia multimilor A si B este: ');

   for i:=10 to 99 do

     if i in c then write (i, '  ');

   writeln;

    writeln(' Diferenta multimilor A si B este: ');

   for i:=10 to 99 do

     if i in d then write (i, '  ');

   writeln;

end.