===== PascalABC.NET =====
-1-
begin
var a := new integer[9];
for var i := 0 to 2 do
begin
a[3 * i] := ReadInteger('Введи элемент ' + (3 * i + 1).ToString);
a[3 * i + 1] := 6 * i + 4;
a[3 * i + 2] := Random(0, 9)
end;
a.Println
end.
-2-
begin
var a := ArrRandom(15, -99, 99);
a.Println;
var b := a.Select(p -> p * p).ToArray;
b.Println;
Println('Разность', a.Max - b.Min)
end.
Изучением информатики являеться компюторние технологии,обработка информации
Наука+учеба=работа
Следовательно убираем не нужное. Повторяющееся.
нука+уче=рот
у встречается 2 раза. допустим это ноль.
нка+че=рот
Под эти буквы, можно поставить любые числа. Но что бы если нка это например 185, то че должно быть больше 15. Что бы Например 94. В итоге ответ 279. Цифры совпадают по буквам, нормально.
1. Добавлено 4 бита, так как в маске 255.255.0.0 - 16 единичных бит,
а в маске 255.255.240.0 - 20 единичных бит
2. Судя по маске получим 16 подсетей, количество битов узлов подсети - 12
3. В каждой подсети по 4094 узлов + адрес подсети + широковещательный адрес
4. Сетевой адрес этой подсети 172.16.64.0
5. Адрес IPv4 первого узла в этой подсети 172.16.64.1
6. Адрес IPv4 последнего узла в этой подсети 172.16.79.254
7. Широковещательный адрес IPv4 в этой подсети 172.16.79.255