Блин! Начал писать программу, а комп ВЫЛЕТЕЛ.... Поэтому припоздал....
uses Crt; var i, n, m, z1, z2 :integer;
begin ClrScr; Write (' n = '); ReadLn(n); WriteLn; if (n<0) or (n>18) then WriteLn (' None!') else begin for i:=11 to 99 do begin m:=i; z1:=m div 10; z2:=m mod 10; if (z1+z2=n) then Writeln(' m = ', m); end; end; ReadLn; end.
Если маска будет такая: 255.255.255.192 то адресов будет 64 Такая маска: 255.255.255.128 - 128 адресов. Значит нам подойдет этот вариант и в нем 25 единиц.