В майкрасофт ексель смоделируй и перениси ...
<u>// PascalABC.NET 3.4, сборка 1766 от 25.08.2018
</u>
begin
var a := new HashSet<integer>(ReadArrInteger('Множество A ->', ReadInteger('Размер множества A =')));
var b := new HashSet<integer>(ReadArrInteger('Множество B ->', ReadInteger('Размер множества B =')));
a.Except(b).Print; Println(' - A\B');
b.Except(a).Print; Println(' - B\A');
a.Intersect(b).Print; Println(' - пересечение A и B');
a.Union(b).Print; Println(' - объединение A и B');
end.
<u>Пример ввода/вывода в приложении.</u>
{1}
var a,b,n:integer; c:real;
begin
read(n);
for a := 1 to n-1 do
for b := a to n-1 do
begin
c := sqrt(sqr(a) + sqr(b));
if c < n then
if c = trunc(c) then
writeln(a:3,' ',b:3,' ',c:3);
end;
end.
{2}
var n,i:integer; s,x:real;
begin
read(n);
s := 0;
for i := 1 to n do
begin
read(x);
s := s + x;
end;
writeln(s/n);
end.