Створіть проект для обчислення середнього арифметичного додатних чисел серед чисел, перше з яких дорівнює 100, а кожне наступне менше від попереднього на задане число.

var

i, n, sum: integer;

begin  

i := 100;

  readln(n);

  while i > 0 do  

  begin

      sum += i;

      i -= n;

  end;

 writeln('ответ: ' + sum / (100 div n));

end.

Объяснение:

var

 i, n, sum: integer;

begin  

   i := 100;

   readln(n);

   while i > 0 do  

   begin

       sum += i;

       i -= n;

   end;

  writeln('ответ: ' + sum / (100 div n));

end.

Кажется библиотека   иерархическая модель появилась впервые в результате обобщения структур данных языка кобол. в иерархических моделях основная структура представления данных имеет форму дерева. на самом высшем (первом)  уровне иерархии находится только одна вершина, которая называется корнем дерева. эта вершина имеет связи с вершинами второго уровня, вершины второго уровня имеют связи с вершинами третьего уровня и т.д. связи между вершинами одного уровня отсутствуют. следовательно, данные в иерархической структуре не равноправны – одни жестко подчинены другим.  доступ к информации возможен только по вертикальной схеме, начиная с корня, так как каждый элемент связан только с одним элементом на верхнем уровне и с одним или несколькими на низком. примером иерархической структуры может служить  книга, как иерархическая последовательность букв, которые объединяются в слова, слова – в предложения, предложения  –  в параграфы, затем в главы и т.д.