Question

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

Answer 1

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.