Найти среднее арифметическое всех целых чисел от 100 до 1000

Program task; var a, b, i: integer; begin for i : = 100 to 1000 do begin a : = a + i; b : = b + 1; end; writeln('результат: ', (a / b): 4: 2); readln; end.

Чтоб получить на выходе 171 составим уравнение: 27 + 16x = 171 x = 9 - это значит цикл должен выполниться 9 раз. чтоб цикл выполнился 9 раз составим неравенство исходя из условия s< =2019: (2019-12)9 = 223 - это знаит при d=223 цикл выполнится 10 раз (так как при 9 разе s=2019 и цикл выполнится еще раз). прибавим 1 к 223 и получим начальное значение при котором результат будет 171. далее узнаем конечное значение: (2012-12)/x = 8 x= 250 - это последнее значение, при котором результат будет 171. при d = 251 - не будет 171.  ответ: [224; 250] . всего 27 значений

                                              в итоге 7:               ! 0            0                  1 6:               ! 0            0                  1 5:               ! 1            0                  0 4:               ! 1            1                  1 ответ 3 (5)