Составить составить программу на pascal! : вычислить 

Eugene1000 Eugene1000    3   03.09.2019 03:30    0

Ответы
Aleksandra231v Aleksandra231v  06.10.2020 13:48
Если (n - 1)-ое слагаемое равно y, то n-ое слагаемое равно -y * x^2 / (2n * (2n + 1)). Осталось положить первое слагаемое равным x и просуммировать 6 раз.

PascalABC.NET 3.2
begin
  var x := readReal;
  var y := x;
  var s := x;
  var n := 1;
  while (n < 7) do
  begin
    y := -y * x * x / (2 * n) / (2 * n + 1);
    s += y;
    n += 1;
  end;
  writeln(s);
end.

Пример ввода: 1
Пример вывода: 0.841470984808658
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика