запрограмувати обчислення суми ряду: S=1-x^ (3) + x^ (5) - x^ (7) + ... + x^ (2*n+1). значення n та x вводяться з консоля. В паскаль

Question

Информатика

Эммануилыч

26 октября, 17:41

запрограмувати обчислення суми ряду: S=1-x^ (3) + x^ (5) - x^ (7) + ... + x^ (2*n+1). значення n та x вводяться з консоля. В паскаль

+3

Ответы (1)

Знаете ответ на вопрос?

Прискилла · Answer 1

program k;

var x:real;

n:integer

function f (y:real, j:integer) : real;

begin

f:=1

for k:=1 to j do begin

f:=f*y;

end;

end;

begin

readln (x, n) ;

s:=1;

for i=1 to n do begin

s:=s+f (-1, i) * f (x, 2*i+1)

end;

writeln (s) ;

end.