Задание 1-3
<em>// PascalABC.NET 3.2, сборка 1325 от 19.10.2016</em>
begin
var a:=ArrRandom(10,-20,20); a.Println;
Writeln('Сумма элементов ',a.Sum);
Writeln('Произведение элементов ',a.Aggregate(1,(m,n)->m*n));
Writeln('Сумма четных чисел ',a.Where(x->x.IsEven).Sum);
end.
Пример
13 18 9 -4 -13 5 -9 1 16 -5
Сумма элементов 31
Произведение элементов 394243200
Сумма четных чисел 30
Задание 4
<em>// PascalABC.NET 3.2, сборка 1325 от 19.10.2016</em>
begin
var a:=ArrRandom(ReadInteger('N='),-20,20); a.Println;
Writeln('Максимальный элемент A[',a.IndexMax+1,']=',a.Max);
Writeln('Минимальный элемент A[',a.IndexMin+1,']=',a.Min);
end.
Пример
N= 13
12 7 13 8 -19 -19 -2 3 11 8 -3 -1 3
Максимальный элемент A[3]=13
Минимальный элемент A[5]=-19
Переводим 112 и 64 в 2СС .
112 =<span>1110000
64 =1000000
так как байт - это 8 бит ,следовательно в числе должно быть восемь знаков , тогда добавляем перед числами по незначащему нулю , тогда
112 = 01110000
64 = 01000000
адрес сети получается , когда мы применяем поразрядную конъюнкцию (между маской и ip адресом)
01110000
хххххххх <-- маска
-------------
01000000
мы видим в адресе сети единицу и над ней в ip адресе тоже единица , значит на этом месте в маске может быть только 1 .
Так как в маске у нас идут (СТРОГО) сначала единицы ,потом нули, тогда маска будет равна 11000000 , что в переводе в 10 -ную СС =</span><span>192
Ответ : 192</span>
Ж- полужирный
к- курсив
ч- подчеркивание
Банальный пример... человек
Может: пить, есть, учиться, решать задачи сам, думать головой, работать, смотреть фильм, играть и т.д................