Даны действительное число х не равное нулю и число n целое. составить программу и вычислить сумму ряда s​

думка3 думка3    3   06.11.2019 10:38    1

Ответы
уукуку уукуку  10.10.2020 11:30

var

 i, n: integer;

 x, s, a, xn: real;

 

begin

 read(n, x);

 a := 1;

 s := 1;

 xn := 1;

 for i := 1 to n do

 begin

   a := a * (2 * i - 1) / sqr (2 * i);

   xn := xn * x;

   s := s - a * xn;

 end;

 write(s * Pi / 2);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика