По данному числу n вычислите сумму 2(1-1/3+1/5-1/7++(-1)n/(2n+ формат входных данных: вводится одно число n, не превосходящее 100000. формат выходных данных: необходимо вывести значение выражения

Program zadacha1; var n: longint; i: integer; r, a: real; begin write('n = '); readln(n); if n > 100000 then writeln('ошибка! ') else begin r : = 0; for i : = 0 to n do begin r : = r + a;   a : = (1 - (i and 1) shl 1) * (1 / abs(i * 2 + 1)); end; writeln('результат: ', r); end; readln; end.

Summa1. анализ 1. переменные s, i с целыми числовыми значениями. 2. начало кода 3. переменной s присваивается значение 0. 4. цикл. условие: при значении i от 1 до 5. действие: присвоить переменной s значение, увеличенное на i. 5. вывод значения переменной s. 6. конец кода summa2. анализ 1. переменные s, i с целыми числовыми значениями. 2. начало кода 3. переменной s присваивается значение 0, переменной i - значение 1. 4. цикл. условие: до тех пор, пока i меньше или равно 5. действие: увеличить значение переменной s на і, значение переменной і - на 1. 5. вывод значения переменной s. 6. конец кода summa3. анализ 1. переменные s, i с целыми числовыми значениями. 2. начало кода 3. переменной s присваивается значение 0, переменной i - значение 1. 4. цикл. условие: пока i не станет больше 5. действие: увеличить значение переменной s на і, значение і - на 1. 5. вывод значения переменной s. 6. конец кода

Первая программа. program d_and_e; var     a,b,sum_d,sum_e: integer; begin   writeln('введите первое число: ');   readln(a);   writeln('введите второеое число: ');   readln(b);   sum_d: =(a div 10) + (b div 10);   sum_e: =(a mod 10) + (b mod 10);   writeln('сумма десятков чисел: ', sum_d);   writeln('сумма единиц чисел: ', sum_e); end. вторая программа. program d_and_e; var     a,b,mult_d1_e2,mult_e1_d2: integer; begin   writeln('введите первое число: ');   readln(a);   writeln('введите второе число: ');   readln(b);   mult_d1_e2: =(a div 10) * (b mod 10);   mult_e1_d2: =(a mod 10) * (b div 10);   writeln('произведение десятков 1-го и единиц 2-го числа: ', mult_d1_e2);   writeln('произведение единиц 1-го и десятков 2-го числа: ', mult_e1_d2); end. третья программа. program d_and_e; var     a,b,mult_d1_e2,sum_e1_d2: integer; begin   writeln('введите первое число: ');   readln(a);   writeln('введите второе число: ');   readln(b);   mult_d1_e2: =(a div 10) * (b mod 10);   sum_e1_d2: =(a mod 10) + (b div 10);   writeln('произведение десятков 1-го и единиц 2-го числа: ', mult_d1_e2);   writeln('сумма единиц 1-го и десятков 2-го числа: ', sum_e1_d2); end.