Сумма элементов различных рядов

Задача: 

Задача 1. Найти сумму n-го количества элементов ряда 1, -0.5, 0.25, -0.125, …

Задача 2. Найти сумму и количество элементов последовательности, которые по модулю больше 0.001. Последовательность:
S = 1/2 - 2/4 + 3/8 - 4/16 + ... - ...

Программа на языке Паскаль: 

Задача 1.

var
    a,sum: real;
    n,i:integer;
begin
    write('Количество элементов ряда: ');
    readln(n);
    a:=1;
    sum:=0;
    for i:=1 to n do begin
        sum:=sum+a;
        a:=-a/2
    end;
    writeln(sum:4:3);
readln
end.

Задача 2.

var
        a, b, sign, n: integer;
        sum: real;
begin
        a := 1;
        b := 2;
        sign := 1;
        sum := 0;
        n := 0;
 
        while a/b > 0.001 do begin
                sum := sum + sign * (a/b);
                n := n + 1;
                sign := -sign;
                a := a + 1;
                b := b * 2;
        end;
 
        writeln('Sum: ', sum:5:3);
        writeln('Qty: ', n);
readln;
end.

Комментарии

СРОЧНО помогите!!!

Вычислить сумму положительных целых больших 20, меньших 100 и кратных 3.

Помогите, пожалуйста найти сумму и произведение

Нужно вычислить сумму и произведение всех положительных четных целых чисел до 15.

Помогите пожалуйста с бесконечной суммой ряда и погрешностью!

Составить программу для вычисления суммы бесконечного ряда ∑(сверху ∞, снизу k=1) u_k с погрешностью ε. Где u_k это u и чуть ниже буквы сразу k.
а) процесс суммирования прекращается, как только выполняется неравенство |u_k|< ε, где u_k - текущий член ряда суммирования;
б) процесс суммирования прекращается, как только выполняется неравенство |u_k-u_(k-1)|< ε, где u_k - текущий член ряда суммирования, а u_(k-1) - предыдущий член ряда.
..................∞
Сумма ряда ∑ равна:
................k=1

x - (x^3/3!)+(x^5/5!) - (x^7/7!) + … , x=0.95

Точность вычислений
ε=〖10〗^(-3)

составте ряд а)0 7 33 96

составте ряд
а)0 7 33 96 220
б)1+20+3+18+5+16
в)1 1 0 4 8 32 256

var a,b,i,sum:

var 
    a,b,i,sum: integer;
begin
    a := 1;
    b := 20;
    sum := 0;
    for i:=1 to 3 do begin
        sum := sum + a + b;
        write(a,'+',b,'+');
        a := a + 2;
        b := b - 2;
    end;
    writeln(#08,'=',sum);
end.

#08 - код символа backspace

Результат:

1+20+3+18+5+16=63

Первая и третья последовательности непонятны. В третьей вроде бы каждое следующее есть произведение двух предыдущих. Однако почему в начале 1 1 0. По-идее должно 1 2 2.

Найти сумму ряда S=1+ дробь в

Найти сумму ряда S=1+ дробь в числителе которой 1*3+1*3*5+...+1*2*3* в знаменателе 1+3+ 1+3+5...1+3+5 и тд

Найти сумму ряда

Найти сумму ряда S=1+3+5+7+9+11+13+15.

var n: integer;

var
    n: integer; {количество элементов ряда}
    i, sum: integer;
 
begin
    write('n=');
    readln(n);
 
    if n > 0 then {считаем первый элемент отдельно}
        sum := 1
    else
        sum := 0;
 
    for i := 2 to n do {­ начинаем со второго элемента }
        sum := sum + 2;
 
    writeln('Sum=',sum);
readln;
end.

Написать программу суммы ряда

Написать программу суммы ряда s=1/1+1/3+1/6+1/10+..+, eps=0.2

найти сумму ряда

найти сумму ряда и представить ее в виде
y=∑ (-1)^k*(k+1)/(2k+1)!

помогите пожалуйста!!!

помогите пожалуйста!!!
Вычислить сумму ряда
S=1+1/2^2+1/3^2+4^2…..=1/8^2