Носитель информации, на который записывают программы для хранения

profit?

program lol; varmas: array[1..20] of integer; max,min,i: integer; beginrandomize; for i: =1 to 20 dobeginmas[i]: =random(100); writeln('element #',i,': ',mas[i]); end; writeln; for i: =1 to 20 do if mas[i] > max then max: =mas[i]; writeln('max: ',max); min: =max; for i: =1 to 20 do if mas[i] < min then min: =mas[i]; writeln('min: ',min); writeln; for i: =1 to 20 doif (mas[i] > = min) and (mas[i] < = max) and (mas[i] mod 5 = 0) and (mas[i] < > 0) thenwriteln('element #',i,': ', mas[i]); readln; end.

во-первых нам нужны только четное количество цифр в двоичном числе, если учесть максимальное 25160=110001001001000, т.е. мы идем от 2 до 14 цифр через 2.

1 цифра всегда единица. значит остается n нулей и n-1 единиц. теперь по формуле перестановки с повторениями(можешь почитать в инете), вычисляем последовательно:

1) 2 цифры = 1 вариант

2) 4 цифры = 3 варианта

3) 6 цифры = 10 варианта

4) 8 цифры = 35 варианта

5) 10 цифры = 126 варианта

6) 12 цифры = 462 варианта

7) 14 цифры = 1716  варианта

сложим и получим  2353 варианта.