Задания в Паскале АВС

[Jenny_19]

Помогите пожалуйста решить задачки(((...Очень-очень нужно!

1. Вычислить сумму ряда до n количества значений:

s=1 + 1/1! + 1/2! + 1/3! +...

2.Для выражения exp(k)/k определить наименьшее k, при котором значение выражения становится больше заданного числа P.

3.Вычислить сумму членов ряда S с точностью E:

s=1/1*3 + 1/3*5 + 1/5*7 +...

[IT-man]

s=1 + 1/1! + 1/2! + 1/3! +...

s:=0;
f:=1;
for i:=1 to n do
begin
f:=f*i;
s:=s+1/f;
end;

{Для выражения exp(k)/k определить наименьшее k, при котором значение выражения становится больше заданного числа P.}
k:=1;
while exp(k)/k<=p do k:=k+1;

Вычислить сумму членов ряда S с точностью E:

s=1/1*3 + 1/3*5 + 1/5*7 +...

i:=1; sl:=1/3;
while sl>=eps do
begin
s:=s+sl;
i:=i+1;
sl:=1/((2*i-1)*(2*i+1));
end;