Пусть чисел в отрезке N штук.тогда сумма подряд идущих чисел, начиная с х будет равнаSum = Nx + N*(N-1)/2здесь второе слагаемое - это частичная сумма арифметической прогрессии 0,1,2,3...NМаксимальное значение N будет при нулевом x1/2 (N - 1) N = 1014N^2/2 - N/2 - 1014 = 0N = 1/2 - sqrt(8113)/2 - нехороший кореньN = 1/2 + sqrt(8113)/2 - а это правильный, равный 45,53Максимальное значение x будет при N=1x = 1014, это тривиальное решениеПеребирать будем по N, просто меньше перебораNx + N*(N-1)/2 = 1014Nx = 1014 - N*(N-1)/2x = 1014/N - (N-1)/2 = (2028 - N(N-1))/(2N)и проверять x на целостность-----------------------------------------var x,n,counter:longint; begin counter:=0; for n:=1 to 45 do if (2028 - N*(N-1))mod(2*N) = 0 then begin inc(counter); x := (2028 - N*(N-1))div(2*N); writeln ('x=',x,' N=',n); end; writeln('Всего решений ',counter);end.---------------------------------------а отрезков 6