Общее имя-информационный носитель единичное имя?

Любой носитель информации: бумага, диск, флэшка и т.д.

Сначала найдем способы получить из 21 30, групируя комманды от большей к меньшей 21 + 2*4 + 0*2 + 1*1 = 30 - перестановок команд = (2+0+1)! /2! /0! /1! = 3 21 + 1*4 + 2*2 + 1*1 = 30 - перестановок команд = (1+2+1)! /1! /2! /1! = 12 21 + 1*4 + 1*2 + 3*1 = 30 - перестановок команд = (1+1+3)! /1! /1! /3! = 20 21 + 1*4 + 0*2 + 5*1 = 30 - перестановок команд = (1+0+5)! /1! /0! /5! = 6 21 + 0*4 + 4*2 + 1*1 = 30 - перестановок команд = (0+4+1)! /0! /4! /1! = 5 21 + 0*4 + 3*2 + 3*1 = 30 - перестановок команд = (0+3+3)! /0! /3! /3! = 20 21 + 0*4 + 2*2 + 5*1 = 30 - перестановок команд = (0+2+5)! /0! /2! /5! = 21 21 + 0*4 + 1*2 + 7*1 = 30 - перестановок команд = (0+1+7)! /0! /1! /7! = 8 21 + 0*4 + 0*2 + 9*1 = 30 - перестановок команд = (0+0+9)! /0! /0! /9! = 1 всего 3+12+20+6+5+20+21+8+1 = 96

// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(readinteger('n=',99); a.println;   var se: =a.where((x,i)-> i.isodd).sum;   var pn: =a.where(x-> x< 0).aggregate(biginteger(,q)-> p*q);   var ko: =a.where(x-> x.isodd).count;   writeln('сумма элементов с четными номерами: ',se);   writeln('произведение отрицательных элементов: ',pn);   writeln('количество нечетных элементов: ',ko) end. пример n= 17 7 -60 -7 -96 -14 97 7 -68 -89 -87 -50 49 77 -52 -36 -15 99 сумма элементов с четными номерами: -232 произведение отрицательных элементов: -417286023598080000 количество нечетных элементов: 10 begin   var a: =readarrinteger('вводите: ',readinteger('n='));   a.println;   a.transform(x-> x< 0? abs(x): x> 0? x*x: x); a.println end. пример n= 17 вводите: 7 -60 -7 -96 -14 97 7 -68 -89 -87 -50 49 77 -52 -36 -15 99 7 -60 -7 -96 -14 97 7 -68 -89 -87 -50 49 77 -52 -36 -15 99 49 60 7 96 14 9409 49 68 89 87 50 2401 5929 52 36 15 9801 begin   var a: =arrrandom(readinteger('n=',99); a.println;   var im: =a.indexmax;   swap(a[0],a[im]); a.println; end. пример n= 16 -73 -46 76 92 -57 -57 81 -96 -92 18 -76 89 13 -83 69 56 92 -46 76 -73 -57 -57 81 -96 -92 18 -76 89 13 -83 69 56