Определите маску подсети, соответствующую указанному диапазону IP-адресов.
b) Диапазон адресов от 61.8.0.1 до 61.15.255.254.

c) Диапазон адресов от 172.88.32.1 до 172.88.63.254.

d) Диапазон адресов от 111.224.0.1 до 111.239.255.254.

e) Диапазон адресов от 3.64.0.1 до 3.127.255.254.

Предполагается, что восьмеричное число записано, как символьная строка, поскольку максимальная разрядность не была оговорена в задании.

const
  m:array['0'..'7'] of string=
      ('000','001','010','011','100','101','110','111');
  m1:array['1'..'7'] of string=
      ('1','10','11','100','101','110','111');
var
  s8,s2:string;
  i:integer;
begin
  Write('Введите восьмеричное число: '); Readln(s8);
  s2:=m1[s8[1]];
  for i:=2 to Length(s8) do s2:=s2+m[s8[i]];
  Writeln('В двоичной системе: ',s2)
end.

Тестовое решение:
Введите восьмеричное число: 360721
В двоичной системе: 11110000111010001

// F#
[<EntryPoint>]
let main argv =
    let elements =
        System.Console.ReadLine().Split(' ')
        |> Seq.map (fun x -> System.Int32.Parse x)
        |> Seq.mapi (fun i x -> (x, i))
        |> Seq.where (fun (x, i) -> x % 2 = 0)
    if elements |> Seq.length > 0
        then System.Console.WriteLine("{0} {1}", elements |> Seq.last |> fst, (elements |> Seq.last |> snd) + 1)
        else System.Console.WriteLine("No results")
    System.Console.ReadKey true |> ignore
    0