[Мы решаем ваши проблемы с Си и Паскалем ]
Главная » Статьи » Задачи из заказов » Заказ 07.01.07 Pascal
Вычислить сумму n слагаемых sinx+sinsinx+sinsinsinx+...+(sin...sinx) n раз.
{
  -----------------------------------------------------------------------

   5. Вычислить сумму n слагаемых sinx+sinsinx+sinsinsinx+...+
      (sin...sinx)n раз.

  -----------------------------------------------------------------------
}

var
  n, i : longint;
  sum, x : real;

begin
  writeln('Введите n и x:');
  readln(n, x);
  sum := 0;
  for i:=1 to n do begin
    x := sin(x);
    sum := sum + x;
  end;
  writeln('Искомая сумма равна ', sum:0:4);
end.
Категория: Заказ 07.01.07 Pascal | Добавил: solver (07.01.2007)
Просмотров: 3081