Найдите сумму и количество элементов последовательности, которые по модулю больше 0,001 - Turbo Pascal

Формулировка задачи:

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

Код к задаче: «Найдите сумму и количество элементов последовательности, которые по модулю больше 0,001 - Turbo Pascal»

textual
uses crt;
 
const
  e = 0.001;
 
var
  i, k: integer;
  S, a: real;
 
begin
  S := 0;
  k := 1;
  i := 1;
  a := 1 / 2;
  while abs(a) > e do begin
    S := S + a;
    inc(i);
    k := k * 2;
    if odd(i) then a := i / k
    else a := -i / k;
  end;
  writeln;
  writeln('Сумма S = ', S);
  writeln('Количество элементов: ', i - 1);
end.

6   голосов, оценка 3.667 из 5


СОХРАНИТЬ ССЫЛКУ