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

Question

a fost răspuns

Răspuns :

Boiustef Boiustef · Answer 1 · 2019-02-22T16:56:30+02:00

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.