profile
Опубликовано 5 лет назад по предмету Информатика от alexandr0909

дано целое число n вычислить s=1+1/3+1/7+...+1/(2n+1)

  1. Ответ
    Ответ дан petyaGavrikov
    var i,n:integer; s:real;
    begin
    write('n = '); readln(n);
    s:=1;
    for i:=1 to n do s:=s+1/(2*i+1);
    writeln('s = ',s);
    end.