Вычислить сумму и найти число слагаемых, которые вошли в сумму - Pascal ABC

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

Помогите пожалуйста в решении задачи. Вычислить сумму и найти число слагаемых, которые вошли в сумму (см. таблицу 4). Процесс вычислений требуется закончить, когда очередное слагаемое по модулю окажется меньше ε (это слагаемое при вычислении суммы уже не учитывать):

Код к задаче: «Вычислить сумму и найти число слагаемых, которые вошли в сумму - Pascal ABC»

textual
n:=0;
t:=1;
s:=0;
while abs(t)>e do
 begin
  n:=n+1;
  t:=-t*x*x/n;
  s:=s+t;
 end;
write('S=',s:0:4);

8   голосов, оценка 4.125 из 5


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