[cash]

при любом j у меня получается 0 ((( печально

Код:

var s,e: extended;
    j : integer;
begin
readln(j);
s:=(exp((j+1)*(-ln(1))))/(j*(j+1)*(j+2));
write (s:0:0);
readln;
end.

Оригинал формулы
http://i001.radikal.ru/1104/6e/2a2c645ed8b8.jpg