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

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

Question

Информатика

Йов

12 ноября, 12:27

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

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

+4

Ответы (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