Створіть проект для обчислення середнього арифметичного додатних чисел серед чисел, перше з яких дорівнює 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.