Question

Составить программу по заданию с использованием подпрограммы(подпрограмма обязательна)

"Составить программу вычисления суммы первых n=10; 20; 30 членов ряда:"
(снизу вторая то - что получилось у меня, если возможно - попробуйте исправить эту чтобы работала, постоянно ошибки вылезают, если нет - просто новую рабочую напишите)

Answer 1

procedure P(n: integer);

begin

 var s := SeqGen(n, k -> 1 / (k * (k + 1)), 1).Sum;

 Writeln('n = ', n, ', S = ', S, ', S - 1 = ', S-1)

end;

begin

 foreach var n in Seq(10,20,30) do

   P(n)

end.