Вычислить сумму конечного числа слагаемых. При вычислении ряда использовать рекуррентное соотношение. Значение х,начальное и конечное значение параметра добавления ввести с клавиатуры — Pascal(Паскаль)

program Project2;
{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  k: integer;
  x, t, s: double;

begin
  write('x=');
  readln(x);
  k := 1;
  s := 0;
  t := 1;
  while k <= 9 do
  begin
    t := t * ln(3) * x / k;
    s := s + t;
    k := k + 1;
  end;
  writeln('Summa=', s:5:3);
  readln

end.

Leave a Comment