Предмет: Информатика, автор: Keks4683

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

Приложения:

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

Ответы

Автор ответа: Аноним

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

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

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

Похожие вопросы

Предмет: Қазақ тiлi, автор: gulsanamnarmidinova8

Қіз мінезі эссе 80 сөз срочно помогите даю 45 баллл

5 лет назад

Предмет: Қазақ тiлi, автор: mahmadsalikayazhan

Не қарап тұрсын мен білмейм дим

5 лет назад

Предмет: Химия, автор: arazakbai73

Закончите уравнения полуреакций, назовите процесс (окисление/ восстановление):

A. Cl+1+ 2e- = ______, процесс________________

B. Cl-1 - 5e- = _______, процесс________________

C. Cl0 - 5e- = _______, процесс________________

D. Cl+3 - 2e- = _______, процесс________________

E. Cl+3 + 4e- = _______, процесс________________

F. Cl+5 - 2e- = _______, процесс________________

G. Cl+7 + 4e- = ________, процесс________________

5 лет назад