Записали выражение: 100−(99)+98−(97)+…+2−(1)100−(99)+98−(97)+…+2−(1) (знаки плюс и минус чередуются). можно поменять местами любые два числа (не трогая знаки), а затем вычислить значение получившегося выражения. какое максимальное число можно получить таким образом (можно сделать только один обмен)? в качестве ответа укажите одно целое число. комментарий. если поменять 2 и 1, получится такое выражение: 100−(99)+98−(97)+…+1−(2)100−(99)+98−(97)+…+1−(2).

Вообще более менее очевидно что нужно поменять максимальное число с минусом и минимальное число с плюсом это -99 и 2 посчитаем исходную сумму. если суммировать попарно (-1+2)+(-3+4)+ = 1+ = 100/2 = 50 посчитаем новую сумму с заменой 50- (-99 + 2) + (99 - 2)  = 244

1. Создадим код для программы Pascale:

function f(x, a: real): real;

begin

 f := exp(-x) - a * x

end;

 

function root(xmin, xmax, a, eps: real): real;

var fc, fm, xc: real;

begin

 repeat

   xc := (xmin + xmax) / 2;

   fc := f(xc, a);

   fm := f(xmax, a);

   if ((fc >= 0) and (fm >= 0)) or ((fc <= 0) and (fm <= 0))

     then xmax := xc

     else xmin := xc

 until abs(xmax - xmin) < eps;

 root := (xmin + xmax) / 2 {можно просто root := xmin, или root := xmax}

end;

 

var a, eps: real;

 

begin

 repeat

   write('Точность вычисления > 0;  eps = ');

   readln(eps)

 until eps > 0;

 write('Параметр a = ');

 readln(a);

 if a > 0

   then writeln('x = ', root(0, 1 / a, a, eps))

   else if a = 0

     then writeln('x стремится к бесконечности')

     else if a > -exp(1)

       then writeln('При данном параметре корней не существует.')

       else if a = -exp(1)

       then writeln('x = ', -1.0)

       else writeln('x1 = ', root(-ln(-a), 0, a, eps), ', x2 = ', root(-2 * ln(-a), -ln(-a), a, eps));

 readln

end.

2. Активируем код в Pascale

3.Вводим значение t=e^-ax*KOREN(x+1)+e^ax*KOREN(x-1)

Все буквы русского языка были заменены на английские так-как программа не умеет распозновать посторонние языки

4.Получаем нужное значение

Объяснение:

Pascale ABC