Найти произведение 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»
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
СОХРАНИТЬ ССЫЛКУ