С полным описанием.Не могу понять как получился ответ??? Кодовый замок сейфа должен допускать не менее 15 000 уникальных комбинаций. Код устанавливается с двухпозиционных пере- ключателей. Сколько таких переключателей необходимо использовать в конструкции замка?

Вот так? ммммммммм

14

Объяснение:

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

Тогда, кол-во уникальных комбинаций, которые можно составить, используя эти переключатели, будет вычисляться по следующей формуле:

Где N - кол-во уникальных комбинаций, которые мы можем получить, используя i переключателей. N мы знаем, соответственно, можем очень легко посчитать i, которая будет равна логарифму числа N по основанию 2:

, что приблизительно равняется 13.87. Округлим ответ в большую сторону, так как при округлении в меньшую мы не сможем получить 15000 уникальных комбинаций, так как  .

ответ: 14

uses crt;
var a, b, c, n, i, j :integer;   
s :array [1..10000] of integer;
begin
   clrscr;
   writeln ('Vvedite razmer masiva');
   read (n);
   writeln  ('Vvedite chislo X');
   read (a);
   for i:=1 to n do 
   begin 
      writeln ('Vvedit s[', i, '] element'); 
      read (s[i]); 
   end;
   for i:=1 to n do 
      for j:=1 to n-1 do 
         if s[j]<s[j+1] then   
         begin   
            b:=s[j];   
            s[j]:=s[j+1];   
            s[j+1]:=b;   
         end;
   for i:=1 to n do 
   begin 
      write (s[i], ' '); 
      if s[i]=a then inc (c); 
   end;
writeln;
if c>0 then writeln ('3adanoe chislo prisytstvyet') else writeln('3adanoe chislo otsytstvyet');
end.

P.S. Надеюсь на благодарность и лучший ответ.

Const 
n=5;

Var
 ar:array[1..n] of integer;
 ar2:array[1..n] of integer;
 i,k:integer;

 function prost(a:integer):boolean;
 var i:integer;
 b:boolean;
  begin
  b:=true;
   for i:=2 to a div 2 do
    if a mod i=0 then
     begin;
      b:=false;
      break;
     end;
   if a=1 then b:=false;
  prost:=b;
 end;

  begin;
 randomize;
 k:=0;
  for i:=1 to n do
   begin;
    ar[i]:=random(101);
    write(ar[i]:4);
   end;
  writeln;
  for i:=1 to n do
  if prost(ar[i]) then
   begin;
    inc(k);
    ar2[k]:=ar[i];
    write(ar2[k]:4);
   end;
end.