Question

Дано натуральное число N. Вычислить: S=1+1/3+1/5+1/7+…+1/(2*N+1)
РЕШИТЕ ЧЕРЕЗ REPEAT, ПОЖАЛУЙСТА!!!!​

Answer 1

var

n,i:integer;

s:real;

begin

readln(n);

s:=0;

i:=1;

repeat

S+=1/(i);

i+=2;

until i>(2*n+1);

writeln(s);

end.