Паскаль. Две арифметические задачи

[Digi]

1)ВЫчислить сумму S первых N членов ряда A=K/exp(3*ln(K)),не меньше заданного числа R,где
K=1,2,3...,N,
N-произвольное число!
Принять R=0,08

Ну или хотябы вот эту!
2)Найти S сумму членов ряда N/(N+1)(N+2),где N= 1,2,3,4,...,K,
K>0-произвольное число!!!!!
ПОЖАЛУЙСТА!!!!!ПОМОГИТЕЕЕЕ!!!БУДУ очень признателен!!!

[Stilet]

1)
Ну например:

const n=5; r=0.08;
var k:integer; s,e:double;
begin
 for k:=1 to n do begin
  e:=K/exp(3*ln(K));
  if e>=r then s:=s+e;
 end;
 write(s);
 Readln;
end.

[Digi]

Сообщение от Stilet

1)
Ну например:

:(:(:(:mad::(:(:(

Поставьте вариант на вторую задачу!!!Я так и не смог сделать!!!

[ОДИНОЧЕСТВО В СЕТИ]

Я так и не смог сделать!!!

ну тут то просто http://programmersforum.ru/showpost....59&postcount=4

[Digi]

Это всё весело конечно!!!Но это совсем нето!=((