Помогите написать программу (Pascal ABC)

Программирование циклических алгоритмов.

Дано натуральное число N. Вычислить

S=1+1/3+1/5+1/7 + ... + 1/2N+1

Question

Информатика

Малаха

10 февраля, 19:45

Помогите написать программу (Pascal ABC)

Программирование циклических алгоритмов.

Дано натуральное число N. Вычислить

S=1+1/3+1/5+1/7 + ... + 1/2N+1

+5

Ответы (1)

Знаете ответ на вопрос?

Альба · Answer 1

Var n, i:integer; s:real;

begin

readln (n) ;

s:=0;

for i:=0 to n do s:=s+1 / (2*i+1) ;

writeln ('s = ', s) ;

end.

Пример:

5

s = 1.878210678210678e+00

Помогите написать программу (Pascal ABC)Программирование циклических алгоритмов.Дано натуральное число N. ВычислитьS=1+1/3+1/5+1/7 + ... + 1/2N+1

Помогите написать программу (Pascal ABC)

Программирование циклических алгоритмов.

Дано натуральное число N. Вычислить

S=1+1/3+1/5+1/7 + ... + 1/2N+1