<span>1)Как правило, в итоге каких либо определенных причин наступают действия (последствия). На основании причин человек может объяснять и планировать события.Приводится несколько вариантов:По причине поломки главного узла простаивает весь конвейер. По причине неблагоприятных погодных условий в аэропорту сегодня были отменены все авиарейсы.Муж с женой уже которую ночь спят отдельно по причине того, что жена на последнем месяце беременности.
2) философские категории, выражающие отношение между совокупностью предметов (или элементов отдельного объекта) и связью, объединяет эти предметы и приводит к появлению у совокупности новых (интегративных) свойств и закономерностей, не присущих предметам в их разобщенности</span><span />
Var r,v:real;
begin
write('Рост? '); readln(r);
write('Вес? '); readln(v);
if (r >= 168)and(r <= 178)and(v < r-115) then writeln('Принят')
else writeln('Не принят');
readln
<span>end.</span>
Program z1;
var
a,b,c,d:integer;
begin
writeln('Введите число a и число b');
readln(a,b);
c:=sqr(max(a,b));
d:=min(a,b)+1;
writeln('Первое число ',c,', второе число ',d);
<span>end.
Исправил</span>
Ёмкость кислоты и затем умнодте её на саму себя и получите ответ
<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>
