Написать программу, которая вычисляет сумму первых n членов ряда 1+1/3+1/5+1/7 ... 1/n

через оператор for to do

Question

Информатика

Гермоген

10 сентября, 19:33

Написать программу, которая вычисляет сумму первых n членов ряда 1+1/3+1/5+1/7 ... 1/n

через оператор for to do

+3

Ответы (1)

Знаете ответ?

Юраша · Answer 1

Var n, i:integer; s:real;

Begin

write ('n=') ; readln (n) ;

s:=0;

for i:=1 to (n*2) - 1 do

if (i mod 2) 0 then s:=s+1/i;

writeln ('s=', s:0:2) ;

End.

Написать программу, которая вычисляет сумму первых n членов ряда 1+1/3+1/5+1/7 ... 1/nчерез оператор for to do

Написать программу, которая вычисляет сумму первых n членов ряда 1+1/3+1/5+1/7 ... 1/n

через оператор for to do