Як розтавити 5 стільців у кімнаті щоб біля кожної стіни стояло по 2 стільця( стін 4)

Четыре стула по углам и один в центре комнаты. или как на картинке (если нужно, чтобы каждый стул был у стены)

Приведём программу на Паскале, решающий данную задачу:

 

var n: longint;

function F(n: longint): longint;

 begin

   if n = 1  

     then F := 1

   else if ((n mod 2) = 0)  

     then F := n + F(n - 1)

   else if (((n mod 2) = 1) and (n > 1))  

     then F := 2 * F(n - 2);

 end;

begin

 n := F(26);

 writeln(n);

end.

 

Приведём аналитическое решение. Заметим, что значения функции от нечётных n являются значениями степеней двойки: F(1) = 1, F(3) = 2, F(5) = 4 и т. д. Значит, F(25) = 4096. Тогда F(26) = 26 + 4096 = 4122.

 

ответ: 4122.

program number1;

var a: array [1..5] of integer;

i,min,max: integer;

begin

writeln('введите 5 значений массива');

for i: =1 to 5 do

readln(a[i]);

min: =a[1];

max: =a[1];

for i: =1 to 5 do

begin

if (a[i]> =max) then max: =a[i];

if (a[i]< =min) then min: =a[i];

end;

for i: =1 to 5 do

begin

if max=a[i] then

begin

  writeln('максимальное значение: ',a[i],' [',i,']');

  max: =a[i];

end;

if min=a[i] then  

  begin

  writeln('минимальное значение: ',a[i],' [',i,']');

  min: =a[i];

  end;

end;

writeln('среднее арифметическое: ',(min+max)/2);

end.