===== PascalABC.NET =====
procedure MyCompare<T>(P, Q: HashSet<T>);
begin
if P.SetEquals(Q) then
Print('Множества эквивалентны')
else if P.IsSubsetOf(Q) then
Print('Первое множенство является подмножеством второго')
else if P.IsSupersetOf(Q) then
Print('Второе множенство является подмножеством первого')
else
Print('Проверка множеств завершена')
end;
var n := ReadInteger('Мощность первого множества:');
var P := ReadSeqInteger('Введите элементы множества:', n).ToHashSet;
n := ReadInteger('Мощность второго множества:');
var Q := ReadSeqInteger('Введите элементы множества:', n).ToHashSet;
MyCompare(P, Q)
end.
Const n=10;
m=15;
Var A :Array[1..n,1..m] of integer;
i: 1..n; //индекс (номер) строки
j: 1..m; //индекс (номер) столбца
count: byte;
Begin
<Инициализация (формирование) массива…>;
<Вывод сформированного массива>;
for j:=1 to m do // для столбца с номером j
count:=0 // до проверки столбца количество искомых элементов равно нулю
for i:=1 to n do
if A[i,j] mod 2 =0 then count:=count+1 // обработка элемента i в столбце j
end; // цикла по i
writeln(′В столбце ′,j, ′четных элементов - ′, count); //вывод результатов обработки столбца j
===== PascalABC.NET =====
procedure MyCompare<T>(P, Q: HashSet<T>);
begin
if P.SetEquals(Q) then
Print('Множества эквивалентны')
else if P.IsSubsetOf(Q) then
Print('Первое множенство является подмножеством второго')
else if P.IsSupersetOf(Q) then
Print('Второе множенство является подмножеством первого')
else
Print('Проверка множеств завершена')
end;
begin
var n := ReadInteger('Мощность первого множества:');
var P := ReadSeqInteger('Введите элементы множества:', n).ToHashSet;
n := ReadInteger('Мощность второго множества:');
var Q := ReadSeqInteger('Введите элементы множества:', n).ToHashSet;
MyCompare(P, Q)
end.
Const n=10;
m=15;
Var A :Array[1..n,1..m] of integer;
i: 1..n; //индекс (номер) строки
j: 1..m; //индекс (номер) столбца
count: byte;
Begin
<Инициализация (формирование) массива…>;
<Вывод сформированного массива>;
for j:=1 to m do // для столбца с номером j
begin
count:=0 // до проверки столбца количество искомых элементов равно нулю
for i:=1 to n do
begin
if A[i,j] mod 2 =0 then count:=count+1 // обработка элемента i в столбце j
end; // цикла по i
writeln(′В столбце ′,j, ′четных элементов - ′, count); //вывод результатов обработки столбца j
end; // цикла по i
end.