Răspuns :
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.
Vă mulțumim că ați ales să vizitați platforma noastră dedicată Informatică. Sperăm că informațiile disponibile v-au fost utile. Dacă aveți întrebări suplimentare sau aveți nevoie de sprijin, nu ezitați să ne contactați. Vă așteptăm cu drag și data viitoare! Nu uitați să adăugați site-ul nostru la favorite pentru acces rapid.