Сколько в ряду натуральных чисел есть отрезков (то есть, подряд идущих чисел) таких, что сумма всех чисел этого отрезка равна 1014? в качестве ответа выведите одно натуральное число, например, 2. например, 1, 2, 3, 4, 5 – отрезок с началом 1 и концом 5 и суммой всех чисел 15, а 34 – отрезок с началом 34 и концом 34 и суммой всех чисел 34.

Пусть чисел в отрезке n штук. тогда сумма подряд идущих чисел, начиная с х будет равна sum = nx + n*(n-1)/2 здесь второе слагаемое - это частичная сумма арифметической прогрессии 0,1,2, максимальное значение n будет при нулевом x 1/2 (n - 1) n = 1014 n^2/2 - n/2 - 1014 = 0 n = 1/2 - sqrt(8113)/2 - нехороший корень n = 1/2 + sqrt(8113)/2 - а это правильный, равный 45,53максимальное значение x будет при n=1x = 1014, это тривиальное решениеперебирать будем по n, просто меньше перебораnx + n*(n-1)/2 = 1014 nx =  1014 - n*(n-1)/2 x =    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

Var a,i: integer; begin for i: =1 to 99 do begin   if (i mod 2> 0) then   a: =a+i; end; write(a); end.