Если маска будет такая:
255.255.255.192 то адресов будет 64
Такая маска:
255.255.255.128 - 128 адресов. Значит нам подойдет этот вариант и в нем 25 единиц.
Num := (d + n) / 10;
sq := trunk(num) + 1;
Основание - 8, т.е. восьмиричная система счисления
Var
a,b,c,d : integer;
<span>Begin </span>
for a:=1 to 4 do
for b:=a+1 to 4 do
for c:=b+1 to 4 do
<span> for d:=c+1 to 4 do </span>
writeln(a:3,b:3,c:3,d:3);
for a:=1 to 4 do
<span> for b:=a+1 to 4 do </span>
<span> for c:=b+1 to 4 do </span>
writeln(a:3,b:3,c:3);
for a:=1 to 4 do
<span> for b:=a+1 to 4 do </span>
writeln(a:3,b:3);
for a:=1 to 4 do
<span> writeln(a:3); </span>
readln;
<span> End.</span>