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

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

Ответ

Автор - BobbyFresnel

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.

Предыдущий вопрос Следующий вопрос

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.