Улесника было 49 деревьев тоесть 7 рядов по 7 деревьев в каждом. и лесник понел что надо срубить деревьев для цветника, и позвал мастера и сказал ему чтоб он срубил всё кроме 5 рядов по 4 дерева в каждом и мастер начал а лесник пошел отдохнуть, вскоре лесник пошёл поглядеть как идёт работа и увидел что осталось 10 деревьев тогда он спросил почему осталось десять веть я тебе велел оставить 20 деревьев а мастер заевил что ему надо было 5 рядов по 4 дерева в каждом и лесник глянул и увидел что это правда и осталось 5 рядов по 4 дерева в каждом. вопрос как мастер умудрился так сделать

Во вложении на левом рисунке красным цветом показана схема размещения десяти деревьев в пять рядов. Хорошо видно, что при геометрически равных расстояниях между деревьями во всех направлениях невозможно сделать подобное построение. Один из вариантов со смещением двух рядов показан на правом рисунке. Конечно, можно найти множество других вариантов, но суть у всех одна - ряды образуются лучами пятиконечной звезды.

// PascalABC.NET 3.2, сборка 1325 от 19.10.2016
function BinToOct(s:string):string;
// переводит двоичную триаду в восьмеричную цифру
begin
  case s of
  '000':Result:='0';
  '001':Result:='1';
  '010':Result:='2';
  '011':Result:='3';
  '100':Result:='4';
  '101':Result:='5';
  '110':Result:='6';
  '111':Result:='7';
  end
end;

begin
  var s2:=ReadlnString('Введите целое двочное число');
  var k:=s2.Length mod 3;
  if k<>0 then s2:=(3-k)*'0'+s2; // дополнить до кратной 3 длины
  var s8:='';
  for var i:=1 to s2.Length div 3 do
    s8:=s8+BinToOct(Copy(s2,3*i-2,3));
  Writeln(s8);
end.

Пример
Введите целое двочное число 10101100001
2541

На алгоритмическом.

a=массив(10..50);
max:=a[1]'
min:=a[1];
n_min:=0;
n_max:=0;
k:=0;
i:=10;

пока i<=50  делай
нц
  если a[i]>max то
    нц
     max:=a[i];
     n_max:=i;
    кц
  если a[i]<min то
   нц
    min:=a[i];
    n_min:=i;
   кц
 если (i mod 2)==0 то
   sum:=sum+a[i]; 
   k:=k+1;
кц

srednee_znachenie:=sum/k;

//

var
a:array(10..50) of integer;
max,min,n_min,n_max,k,i,sum:integer;
sr:float;

begin
 max:=a[1];
 min:=a[1];

 for i:=10 to 50 do
  begin
   if a[i]>max then
    begin
     max:=a[i];
     n_max:=i;
    end;
   if a[i]<min then
    begin
     min:=a[i]
     n_min:=i;
    end;
   if ((i mod 2)=0) then
    begin
     k:=k+1;
     sum:=a[i]+sum;
    end;
  end;
end;

sr:=sum/k;
end.