Я уж не силен в этой программе
но вот вроде должно получиться<span>
</span><span>var
a, b : array [1..16] of Integer;
begin
for var i := 1 to 16 do
a[i] := ReadLnInteger('a[' + i + '] =');
WriteLn('Массив A = ', a);
b := a;
Swap(b[2], b[5]);
Swap(b[4], b[9]);
Swap(b[7], b[15]);
Swap(b[9], b[16]); // повторяем обмен 9, если что?
WriteLn('Массив B = ', b);
end.</span>
В первом не хватает-13,14, а во втором -1,2,3,4,5,6,7,9,11,12,13,14,15,16.
Если это живой объект, то управлять можно только с его согласием.
А= 10; б=3
если а>б (а ну нас 10>3) то б=3+12=15
все
если а>б (а у нас б стало 15) то а=10+12=22
все
ответ а=22
если бы а было меньше б мы бы пошли по пути иначе. т.е сначала проверяется условие, если оно верно, то идем дальше, а если нет - иначе
Рассмотрим третий байт IP-адреса узла и IP-адрес сети. Распишем в двоичном виде:
94 = 01011110
80 = 01010000
Первые два байта маски равны 255, так как байты узла и сети совпадают.
Для определения третьего байта маски сети найдем число первых бит, которые совпадают. Совпадают 0101, поэтому число первых бит равно 4, а сам третий байт маски равен 11110000, то есть 240.