FACTORIAL

[dzuga]

S=X+(X*X)/2+(X*X*X)/3...+(X V STEPENI N)/N

[Sibedir]

  F := 0;
  for i := 1 to N do
    F := F + (Power (X, i))/i;

[Grag]

Только ты еще объясни ТС что такое Power() и где оно живет...

[DoDge_VipeR]

вот без power)

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

[Grag]

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

вот без power)

s:=s+p/i;

А меня что-то вот это смущает... Хотя, нет, погонял на бумаге, все нормально!