Вычислить: sin x+sin 2x+sin 3x + ... (n слагаемых)

Question

Информатика

Гермес

2 ноября, 18:21

Вычислить: sin x+sin 2x+sin 3x + ... (n слагаемых)

+3

Ответы (1)

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

Лавруня · Answer 1

Var

n:integer;

S, x:real;

Begin

Write ('x = ') ;

ReadLn (x) ;

Write ('n = ') ;

ReadLn (n) ;

S:=0;

For n: = 1 to n do

S:=S+Sin (n*x) ;

WriteLn ('S = ', S)

End.