Выяснить если элементы a включены в элементы b - Pascal ABC

Формулировка задачи:

Задача: Напишите программу которая вводит от руки(readln) 2 множества A и B с номерами в интервале 10..99 и выясните если элементы множества A содержатся в B
Program DN;
type Indice = 10..99;
MultimeIndicii = set of Indice;
var
a,b,c: MultimeIndicii;
i:integer;
cond : boolean;
 
begin
a:= [12..35,18,24]; //Elementele multimii A
b:= [11..55]; //Elementele multimii B
c:=[]; //Pina cind este o multime vida
 
c:= a-b;
for i:=1 to 55 do begin
if (i in c) then cond:=true // a in b нельзя  поставить
else cond:=false;
end;
if (cond = true) then writeln('Multimea A este inclusa in multimea B')
else writeln('Multimea A nu este inclusa in multimea B');
end.

Код к задаче: «Выяснить если элементы a включены в элементы b - Pascal ABC»

textual
program DN;
 
type
  Indice = 10..99;
  MultimeIndicii = set of Indice;
 
var
  a, b, c: MultimeIndicii;
  i, k: integer;
  x: Indice;
  cond: boolean;
 
begin
  a := [];
  c := [];  
  b := [];  
  write('Введите количество элементов во множестве А:');
  readln(k);
  for i := 1 to k do
  begin
    readln(x);
    include(a, x);
  end;
  writeln('Set A: ');  
  for i := 0 to 255 do
    if i in a then
      write(i:4);
  
  writeln;
  write('Введите количество элементов во множестве B:');
  readln(k);
  for i := 1 to k do
  begin
    readln(x);
    include(b, x);
  end;
  writeln('Set B: ');  
  for i := 0 to 255 do
    if i in b then
      write(i:4);
  
  (*  
  a := [12..35, 18, 24]; //Elementele multimii A
  b := [11..55]; //Elementele multimii B
  c := []; //Pina cind este o multime vida*)
  writeln;
  c := a - b;  
  
{  writeln('Set C: ');
 
  for i := 0 to 255 do
    if i in c then
      write(i:4);}
  writeln;
  if c = []   then 
    writeln('Да. Multimea A este inclusa in multimea B')
  else 
    writeln('Нет. Multimea A nu este inclusa in multimea B');
end.

8   голосов, оценка 4.125 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы