<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>
5) а) Энциклопедия
б) Вес штанги, взятой сспортсменами
в) Летопись
10) Нет. Зная формулу линейного уравнения можно столкнуться с необходимостью деления на 0. Формула здесь не поможет. Поможет логика: на ноль делить нельзя!
11) Да. Пишу план изложения.
9) б) 29
в) 36
г) 45
е) отсутствует 4
а) и д) не сообразил....
Подумай, пожалуйста САМ!
А) a*a+x*x/(y*y) или sqr(a)+sqr(x)/sqr(y)
б) sqrt(a*a+b*b) или sqrt(sqr(a)+sqr(b))
360000 битов.
351.5625 кибибайт
0.3433227539062 мебибайт
11 делаем