Сколько единиц в двоичной записи числа 41024 + 22046 – 15?

begin    var L := new List<integer>;    var num := 41024 + 22046 - 15;    var i := 65536;    while i >= 1 do begin        if (num and i) <> 0 then L.Add(1)        else if (num and i) = 0 then L.Add(0);        i := Trunc(i / 2);    end;    L.Println; // 0 1 1 1 1 0 1 1 0 0 1 0 0 1 1 1 1    L.Where(t -> t = 1).Count.Println; // 11end.