Qndd1[x_, N_, D_] :=
Module[{sum = 0, bin},
  bin = 1;
  For[n = N, n > x, n--,
      sum += bin ((n-x)/D)^n (1-(n-x)/D)^(N-n) (D-N+x)/(D-n+x);
      bin *= n/(N-n+1);
  ];
  sum
]