Вычислить сумму по формуле - Free Pascal

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

Вычислить сумму по формуле

Код к задаче: «Вычислить сумму по формуле - Free Pascal»

textual
//введите n
//создайте массив a[1..n]
//посчитайте сумму
t:=1;
s:=0;
for i:=1 to n do
 begin
  t:=-t/i;
  s:=s+t*sqr(a[i])*a[i];
 end;

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


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