Сумма рядов

[Olech4ka]

здраствуйте. подскажите пожалуйста.
условие:
используя оператор цикла с предусловием,вычислить сумму рядов с точностью 10^-3
S1=Сумма(от n=1 до бесконечности)(-1)^(n+1)*(2^-n)/ln(n+1)
S2=Сумма(от n=1 до бесконечности)(кв.корень из n)/(n!)*sin(0.5*PI*n)
я делала вот так.

uses crt;
const e:=0.001;
var s1,a:real;
n:integer;
begin
clrscr;
n:=1;a:=(exp(ln(-1)*(n+1))*(exp(ln(2)*(-n))/ln(n+1);
S1:=1;
while a>e do
begin
inc(n);
a:=(exp(ln(-1)*(n+1))*(exp(ln(2)*(-n))/ln(n+1);
S1:=S1+a;
end;
writeln('Summa=',S1:0:4,' n=',n);
readln
end.

но программа не работает. и вот что делать со 2 рядом. я не знаю как сделать факториал.

и еще задачка.
с клавиатуры водят натуральное число N и вещественное х. вычислить.
S1=сумма(от k=1 до N)(1\K!+sqrt(abs(x)))
S2=сумма(от i=1 до N)*сумма(от j=1 до N)(3*i+2*j)/(i^3+J^2)

и вот опять тоже самое в первом ряду я не знаю как сделать факториал! а во втором я не понимаю как мне 2 суммы сделать.
помогите пожалуйста.
я заплачу сколько скажете.

[JulLy]

570-157-743 стукни мне

[JulLy]

Вам нужна помощь или нет?

[RIO]

Здравствуйте, реализую не дорого, обращайтесь в асю 371824579

[Newton]

ася: 4двадвадва8шесть5девять5 договоримся

[samec]

Стучите в асю 11один11-5шесть5шесть, обсудим.

[Lokuson]

2552343 стучись