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

[CMY_3]

K1 := K1*i - рекуррентное соотношение для факториала, такое же соотношение составляется и для любого другого ряда

[ser18]

так, что делать то дальше, после факториала? Простите, я не понял вас(повторюсь, я не силен в паскале)
Нельзя ли сделать так, чтобы не задавать число, а чтобы программа сама от 1 до бесконечности считала?

[type_Oleg]

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

.. чтобы не задавать число, а чтобы программа сама от 1 до бесконечности считала?

Вместо for - или while или repeat с условием.

[ser18]

n:=0;
while n>=0 doвот это написал, убрал ввод, но ничего не происходит,
т. е.

program five;
var i,n,K1:word;
begin
n:=0;
while n>=0 do
K1:=1;
for i := 1 to n do begin
K1 :=K1 * i;
Writeln(K1);
end;
end.

[newerow1989]

Конечно не происходит, если:
1) зациклилось:

n:=0;
while n>=0 do

2) цикл от 1 до 0:

for i := 1 to n do begin

А факториал (без внешнего цикла!) выглядит так:

begin
   K1:=1;
   For i:=2 to n do
      K1:=K1*i;
   Writeln(K1);
end;

[ser18]

Почему i от двух, факториал и так правильно работает? Кстати, тоже самое:

program five;
var i,n,K1:word;
begin
while n>=0 do
K1:=1;
for i := 1 to n do begin
K1 :=K1 * i;
end;
Writeln(K1);
end.

[newerow1989]

См. предыдущий исправленный мною пост!
Только после begin необходимо значение n

begin
   n:=5;<<<<<<<<<<<<<<<<<<<<<<<<<<<<
   K1:=1;
   For i:=2 to n do
      K1:=K1*i;
   Writeln(K1);
end;

[ser18]

Все равно не пойму, почему от двух. Мне нужно, чтобы он сам выводил значения, без ввод без клавиатуры

[newerow1989]

Объясняю пошагово!
Сначала n приравняется любому числу (в данном случае = 5).
Потом K1 станет равным 1.
Впереди цикл.
Переменная i в цикле станет равным 2.
Следующая строчка - перемножение K1 на i (т.е. 1 * 2 = 2).
Примечание. Нет смысла перемножать единицы между собой (1 * 1 = 1), поэтому с 2-ки начинается цикл.
Потом переменная i в цикле станет равным 3.
Следующее перемножение будет K1 на i (т.е. 2 * 3 = 6).
и т.д.

[ser18]

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