4. Заполните пропуски в программе из задания 3 (6) (с. 66, рабочая тетрадь).
х: =
while x<=_ do
begin
write(__,' , ');
x:=x+__;
end;​

В 1957 году Министерство обороны США посчитало, что на случай войны Америке нужна надёжная система передачи информации. Агентство передовых оборонных исследовательских проектов США (DARPA) предложило разработать для этого компьютерную сеть. Разработка такой сети была поручена Калифорнийскому университету в Лос-Анджелесе, Стэнфордскому исследовательскому центру, Университету Юты и Университету штата Калифорния в Санта-Барбаре. Компьютерная сеть была названа ARPANET (англ. Advanced Research Projects Agency Network), и в 1969 году в рамках проекта сеть объединила четыре указанных научных учреждения. Все работы финансировались Министерством обороны США. Затем сеть ARPANET начала активно расти и развиваться, её начали использовать учёные из разных областей науки.

Объяснение:

===== 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.