Для узла с ip адресом 203.155.196.98 адрес сети равен 203.155.192.0

Полагаю, вопрос оборван и полная формулировка звучит следующим образом: "для узла с ip-адресом 203.155.196.98 адрес сети равен 203.155.192.0. найдите наибольшее возможное количество единиц в двоичной записи маски подсети."нас интересует 3-й октет (байт) ip адреса, который равен 196. переведем в двоичную систему.  аналогично поступим с 3-м октетом адреса сети.  ip адрес и маска подсети адрес сети, их поразрядное логическое умножение друг на друга. для наглядности запишем это в столбик.  11000100 - ip   - маска 11000000 - адрес сети однозначно, чтобы получить единицы в крайних левых разрядах адреса сети, они должны быть и в маске.  11000100 11000000 в требуется определить максимально возможное количество единиц в маске. т.к. в  маске подсети сначала идут все единицы, а потом все нули без чередования, маска будет следующей: 11000100 11111000 11000000 будь единиц в маске хотя бы на одну больше, адрес сети бы изменился на 11000100.  теперь представим нашу маску в двоичном коде: 11111111.11111111.11111000.00000000 число единиц 8+8+5=21. ответ: 21 единица. 

№1. программа на паскале

program xxx;

  var n : integer;

              x : array[1..10] of integer;

begin

  for n: =1 to 10 do

      x[n]: =sqr(n) + 5;

  wreteln('последовательность х: ')

  for n: =1 to 10 do

          write(x[i]);

    readln

end.

я бы сделал

program p_1; var a,b: real; beginwriteln ('vvedite 1-oe'); read (a); writeln ('vvedite 2-oe'); read (b); if (a> b) thenbegin writeln ( ' 1-oe bolshe (',a,')' ); end; if (a< b) thenbegin writeln ( ' 1-oe menshee. bolshe vtoroe (',b,')' ); end; if a=b thenbegin writeln ('oni ravni'); end; end.