PascalABC.NET Вычислить сумму ряда.

[type_Oleg]

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

хорошо, значит n дойдет до 5 и цикл остановится. Как сделать, чтобы цикл шел от 1 до бесконечности?

Какой еще бесконечности ?
Вам же надо - до тех пор пока что-то там не станет < эпсилон.

[ser18]

program five;
const
EPS=0.00001;
var 
i,n,K1:word;
K,S,X:real;
begin
while abs(eps)>S do
K1:=1;
for i := 2 to n do begin
K1 :=K1 * i;
end;
X:=2.1;
S:=0;
K:=1;
K:=K+1;
S:=S+Sin(K*X)/K*K1;
if S<abs(exp(ln(-3)*10)) then writeln(K);
end.

Скажите, как сделать, чтобы факториал тоже нарастал?
я не знаю, что делать дальше, найдите ошибки пожалуйста.

[CMY_3]

Скажите, как сделать, чтобы факториал тоже нарастал?

n!,(n+1)!,(n+2)! и тд, если вычислять сумму факториалов, то не надо считать каждый раз значение факториала, для этого и составляется рекуррентное соотношение, в приведённом примере
(n+1)!/n!=n!*(n+1)/n!=n+1, то есть если n-ый член ряда умножить на (n+1), получите следующий за ним элем и так повторять до установленного условия - заданной точности или по количеству элементов