В паскале помогите решить пожалуйста

Question

zhurba80 [21]

1 год назад

10

В паскале помогите решить пожалуйста

Знания

Информатика

2 ответа:

Миша Зорин [126] · Answer 1 · 2023-03-11T09:53:04+03:00

Миша Зорин [126]1 год назад

0 0

Var f: real; x :integer;
begin //Ввод writeln ('введите x'); readln (x);
//решение
f:= x-(Power(x,3)/6)+(Power(x,5)/120)-(Power(x,7)/5040)+(Power(x,9)/362880)-(Power(x,11)/39916800)+(Power(x,13)/6227020800); {f:=Power(x,2);} //вывод writeln ('f = ', f); end.

Николай712 · Answer 2 · 2023-03-11T10:27:28+03:00

Николай7121 год назад

0 0

X=X-(sqr(x)*x/3*2)+(sqr(x)*sqr(x)*x/5*4*3*2)-(sqr(x)*sqr(x)*sqr(x)*x/7*6*5*4*3*2)+(sqr(x)*sqr(x)*sqr(x)*sqr(x)*x/9*8*7*6*5*4*3*2)-(sqr(x)*sqr(x)*sqr(x)*sqr(x)*sqr(x)*x/11*10*9*8*7*6*5*4*3*2)+(sqr(x)*sqr(x)*sqr(x)*sqr(x)*sqr(x)*sqr(x)*x/13*12*11*10*9*8*7*6*5*4*3*2)