Составить программу по заданию с использованием подпрограммы(подпрограмма - вопрос №10638042 от 1234567х91011111223 03.09.2020 14:19

Question

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

1234567х91011111223 · Answer

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....