Найти произведение 12-ти членов ряда , общий член которого an=1/(3n-2)(3n+1) - Free Pascal

Формулировка задачи:

Написать код на языке Паскаль Найти произведение 12-ти членов ряда , общий член которого an=1/(3n-2)(3n+1)

Код к задаче: «Найти произведение 12-ти членов ряда , общий член которого an=1/(3n-2)(3n+1) - Free Pascal»

textual
const n=12;
var
  i, d: Integer;
  p: Real;
begin
  p:=1; d:=1;
  for i:=1 to n do begin
    p:=p/d/(d+3); Inc(d,3);
  end;
  Write('P=',p);
end.

14   голосов, оценка 3.857 из 5


СОХРАНИТЬ ССЫЛКУ