Во-первых нам нужны только четное количество цифр в двоичном числе, если учесть максимальное 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 варианта.
PROFIT?
program lol;
var
mas:array[1..20] of integer;
max,min,i:integer;
begin
randomize;
for i:=1 to 20 do
begin
mas[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 do
if (mas[i] >= min) and (mas[i] <= max) and (mas[i] mod 5 = 0) and (mas[i] <> 0) then
writeln('Element #',i,': ', mas[i]);
readln;
end.
Var
a,b,c:integer;
begin
readln(a,b,c);
if (a mod 5=0) and (c mod 5=0) and (b mod 5<>0) then
writeln(sqr(a),' ',sqr(b),' ',sqr(c)) else
if (a mod 5<>0) and (c mod 5<>0) and (b mod 5=0) then
writeln(a+10,' ',b+10,' ',c+10)
else
writeln((a+b+c)/3);
end.
Пример ввода:
15
5
34
Пример вывода:
18