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

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

Question

Информатика

Флориан

1 сентября, 19:39

Написать программу, которая вычисляет сумму первых 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