Помогите написать программу в Паскале:

0 голосов
29 просмотров

Помогите написать программу в Паскале:


image

Информатика (28 баллов) | 29 просмотров
0

пара строк вызвала проблему?

Дан 1 ответ
0 голосов
Правильный ответ
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  (1+SeqGen(ReadInteger('n='),i->2*i/(2*i+1),1).Sum).Println
end.

Пример
n= 10
9.8191254222214
(150k баллов)