<em>я так понял на паскале так как информатика </em>
Среда Разработки PascalABC.NET
function factorial(n:integer):integer;
var f:integer;
begin
f :=1;
if(n = 0) or (n = 1) then
factorial:=1
else
if(n>1) then
begin
for var i:=2 to n do
f*=i;
factorial:=f;
end;
end;
begin
var (n,k):=ReadInteger2('n,k = ');
Writeln('Ck/n = ',factorial(n)/(factorial(n-k)*factorial(k)));
end.
Так как одна цифра восьмеричного числа соответствует трём цифрам двоичного числа, то искомое восьмеричное число в двоичной системе счисления имеет вид: 001 000 000 011 111 111(2) = 100377(8)
var N,i,a,p:integer;
BEGIN
readln(N);
p:=1;
for i:=1 to N do begin
read(a);
if (a>9) and (a<100) then
p:=p*a;
end;
writeln(p);
end.
1111111111011101. Числа -34 отрицательное. поэтому переводим его в двоичную систему счисления 100010 и меняем полярность.