Составить программу по заданию с использованием подпрограммы(подпрограмма обязательна)
"Составить программу вычисления суммы первых n=10; 20; 30 членов ряда:"
(снизу вторая то - что получилось у меня, если возможно - попробуйте исправить эту чтобы работала, постоянно ошибки вылезают, если нет новую рабочую напишите)
rogaoksi
2
19.02.2020 11:39
0
Другие вопросы по теме Информатика
Янрей
04.09.2019 09:00
dowikesu
25.10.2021 19:37
ivanovasvetak
25.10.2021 19:31
79654622969ss
28.10.2020 11:39
Michelle10
28.10.2020 11:39
zhannayachmenev
28.10.2020 11:41
Rarete
28.10.2020 11:41
DemEntrA132
28.10.2020 11:41
кхммммм
28.10.2020 11:43
Популярные вопросы
- РЕШИТЕ ЭТИ ЗАДАНИЯ очень нужно ...
2 - Как это делать ? Казахский язык...
2 - Напишите мини-сочинение Сон Кусаки напишите где-то на 1 лист,только нормально...
2 - Составь и напиши рассказ про Местоимения...
1 - Напиши две виды деятельности человека, которые формированию кустарников...
1 - Чи можна створити підковоподібний електромагніт із однойменними полюсами?...
1 - Какие последствие могло бы иметь объединение Речи Посполитой и Российского...
3 - Почему рассказ косцы написанный за границей имигрировавшим Буниным был написан...
3 - Без чтения нет настоящего образования, нет и не может быть ни вкуса, ни слога,ни...
2 - 5. Тыңдалым мәтіні бойынша үстеулерді тауып жазып, синонимдік тарын көрсетiндер....
2
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.