Переводишь каждый бит адресса сети в двоичную систему
и каждый бит маски сети , а далее делаешь поразрядную коньюкцию этих двух множителей.
полученный результат переводишь в 10 тичную систему счисления
Стандартной функции, на сколько я знаю, нет, вот пример "самодельной" функции, возводящей число x в степень y:
function pow(x, y : integer) : integer;
var i, res : integer;
begin
res := 1;
for i:=1 to y do res := res*x;
pow := res;
end;
<span>гос.</span>Дания - столица Копенгаген
<span>гос.<span>Литва - столица Вильнюс</span></span>
<span><span>гос.<span>Норвегия - столица Осло</span></span></span>
<span><span><span>гос.<span>Финляндия - столица Хельсинки</span></span></span></span>
<span><span><span><span>гос.<span>Эстония - столица Таллинн</span></span></span></span></span>
Пользователь. ..............
Var
M,i,N:integer;
Begin
M:=0;
Write('N = ');ReadLn(N);
i:=1;
While i*i*(1+i) <= N do
Begin
M:=M+1;
i:=i+1;
End;
Write('M = ',M);
End.