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

Вычислите порядковый номер элемента последовательности 1+1/(1+2)+1/(2+3)+...+1/(n+(n+1)), значение которого станет меньше 0,002.

  1. Ответ
    Ответ дан bopovogo

    var k,i,n:integer;

    s1,s:real;

    begin

    k:=0;

    n:=0;

    s:=0;

    s1:=1;

    while s1>0.002 do

    begin

    s:=s+s1;

    s1:=1/(n+(n+1));

    k:=k+1;

    n:=n+1;

    end;

    writeln(s-1:5:5,' ',k-1);

    end.

  2. Ответ
    Ответ дан MrMiner1

    Program n_1;

    var m, n: double; i:integer;

    begin

       i:=0;

       n:=0;

       m:=1;

       while (m>=0.002) do begin

           m:=1/(n+n+1);

           i:=i+1;

           n:=n+1;

       end;

       writeln(i-1);

    end.

    Ответ: 250

Самые новые вопросы