Question

Sa se scrie un program care să introduce de la tastatură 2 mulțumi de numere din intervalul 10..99 si verifică dacă aceste mulțumi sunt egale

Answer 1

Răspuns:

Program MultimiEgale;

var A,B: set of 10..99;

   n,m,i,num: integer;

begin

 write('Cate elemente are multimea A, n= '); read(n);

 writeln('Introduceti elementele multimii A: ');

 for i:=1 to n do

   begin

     read(num);

     A:=A+[num];

   end;

 write('Cate elemente are multimea B, m= '); read(m);

 writeln('Introduceti elementele multimii B: ');

 for i:=1 to n do

   begin

     read(num);

     B:=B+[num];

   end;

 if A=B then writeln('Multimile sunt egale')

 else writeln('Multimile nu sunt egale');

end.

Explicație: