Сергей Соколов

Q(40,10,3,2) = C(10,40) * C(2,10) * C(1,30) / (C(10,40) * C(3,40))

0011
0101
0110
1001
1010
1100

1. справа налево перебираем пары цифр пока не найдётся первая пара, где
   левая меньше правой
   
2. меняем их местами.
   

Основное отличие ДКА и НКА состоит в том, что ДКА в процессе работы может находится только в одном состоянии, а НКА в нескольких состояниях одновременно.

function fibRange( from, to) {
  if( isNaN(from) || isNaN(to) || from < 2 || from > to) {
    throw "Bad argument(s)";
  }
  
  var root5 = Math.sqrt(5), phi = (1 + root5)/2, logPhi = Math.log(phi);
  var nFrom = Math.ceil( Math.log((from - 0.5) * root5) / logPhi);
  var nTo = Math.floor( Math.log((to+0.5) * root5) / logPhi);

  function nthFib(n) {
    return Math.round( (Math.pow(phi, n) - Math.pow( -phi, -n)) / (2 * phi - 1));
  }
  
  var a = nthFib(nFrom);
  var result = [a];
  if( nFrom === nTo) return result;
  var i = nFrom + 1;
  var b = nthFib(i);
  while( i <= nTo) {
    result.push(b);
    b = a + b;
    a = b - a;
    i++;
  }
  
  return result;
}


fibRange(10,377)
/*
13,21,34,55,89,144,233,377
*/

function primes(n) {
  var i, j, isPrime = Array(n), result= [];
  for(i=2; i<n; i++) isPrime[i] = true;
  for(i=2; i * i <= n; i++) {
    if( isPrime[i]) {
      for(j = i * i; j <= n; j += i) isPrime[j] = false;
    }
  }
  
  for(i=2; i<n; i++) {
    if(isPrime[i] === true) result.push(i);
  }
  return result;
}

function nearest(arr, total) {
  var len = arr.length
    , i
    , bit
    , sum
    , n = Math.pow(2, len)
    , currDist
    , index = undefined
    , dist = undefined
    , result = []
  ;
  
  for( i = 1; i < n; i++) {
    sum = 0;
    for( bit = 0; bit < len; bit++) {
      if( i & (1 << bit)) sum += arr[bit];
    }
    
    currDist = Math.abs(total - sum);
    if( typeof dist === 'undefined' || dist > currDist) {
      index = i;
      dist = currDist;
      if( dist === 0) break;
    }
  }
  
  for(bit = 0; bit < len; bit++) {
    if( index & (1 << bit)) result.push(arr[bit]);
  }
  
  return result;  
}

nearest([1,3,4,6,8], 12) // [1,3,8]
nearest([1,2,4,6,8], 12) // [2,4,6]
nearest([7,9,13,19,28], 12) // [13] dist = 1
nearest([7,9,13,19,28], 28) // [9,19] не [28] т.к. останавливается на первом найденном варианте

1. dt_created дата-время поступления;
   
2. dt_void дата-время обнуления этого бонуса: через 2 года, а может, и другие правила введете;
   
3. value_in сколько начислено;
   
4. value_out сколько списано.
   

• Для подсчёта числа актуальных баллов, бежим по непросроченным (Now() < dt_void) и суммируем (value_in - value_out).
  
• Для списания при покупке бежим от старых к новым, набирая максимально допустимое для списания число баллов и обновляем value_out.