Из 2-й в 10-ю
10110011=?
100011101=?
10101110101=?

информатика 8-клас

Объяснение:

Первыми переправляются дети.  

Сын возвращается к маме-папе.  

Папа едет на берег к дочери, потом дочь едет за братом и возвращается с ним к папе.  

Сын едет к маме, отдает ей лодку, чтобы она переплыла к папе и дочери.  

После того, как мама переправилась, дочь садится в лодку и едет к брату, подбирает его, и вместе они едут к родителям.  

Дочь остается с родителями, а сын едет к рыбаку, отдает ему лодку.  

Рыбак едет к родителям и высаживается.  

Дочь садится и едет за братом, привозит его с собой обратно (наконец-то вся семья снова вместе), они отдают лодку рыбаку.  

Лодка пересекла реку 13 раз.

program Geom;

program Test_nn;

{$APPTYPE CONSOLE}

{$R *.res}

uses

 Math;

var

 a: array of Extended;

 n, i, c: Integer;

 x: Extended;

begin

 Write ('Размерность массива = ');

 ReadLn (n);

 SetLength (a, n);

 Randomize;

 for i := Low (a) to High (a) do begin

   a [i] := (Random (2001) - 1000) / 1000;

   Write (a [i] :7 :3);

 end;

 x := 1;

 c := 1;

 WriteLn;

 for i := Low (a) to High (a) do begin

   if a [i] > 0 then begin

     Write (a [i] :7 :3);

     x := x * a [i];

     Inc (c);

   end;

 end;

 WriteLn;

 WriteLn ('Среднее геометрическое = ', Power (x, 1/c) :20 :15);

 ReadLn;

end.