Question

Дано натуральное число N и действительное число x. Вычислить сумму ряда:

sin x + sin 2x+sin 3x+…sin N*X

Протестировать программу для x=1.5 и N=3. Проверить правильность ответа на калькуляторе.

Answer 1

var
  n, i: integer;  
  x, s: real;

begin
  repeat
    writeln('Введите количество слагаемых:');
    readln(n)
  until n>0;
  writeln('Введите ''x'':');
  readln(x);
  for i := 1 to n do
    s := s + sin(i * x);
  writeln(s);  
  readln
end.