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

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

Question

Информатика

Милий

2 мая, 10:56

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

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

+2

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