1. Вычислить сумму ряда s = cos (x) + cos (x) * cos (x) + ... + cos (x) * cos (x) * ... * cos (x), для x и n введенных с клавиатуры.

Question

Информатика

Мироныч

10 июля, 00:16

1. Вычислить сумму ряда s = cos (x) + cos (x) * cos (x) + ... + cos (x) * cos (x) * ... * cos (x), для x и n введенных с клавиатуры.

+1

Ответы (2)

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

Зосим · Answer 1

Var x, n, i, j, r: Integer;

sum, temp: Double;

begin

ReadLn (x, n) ;

sum:=0;

r:=cos (x) ;

for i:=1 to n do begin

temp:=r;

for j:=1 to i do temp:=temp*temp;

sum:=sum+temp;

end;

WriteLn (sum) ;

end.

Марьяныч · Answer 2

Var n, i: Integer;

x, sum, temp, cosx: Double;

begin

ReadLn (x, n) ;

sum:=0;

cosx:=cos (x) ;

temp:=1;

for i:=1 to n do begin

temp:=temp*cosx;

sum:=sum+temp;

end;

WriteLn (sum) ;

end.