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

сколько слагаемых должно быть в сумме 1+ 1/2+1/3+..+ 1/N, чтобы сумма оказалась больше 5

  1. Ответ
    Ответ дан Аккаунт удален
    Var N :integer;
    var A: real;
    begin
    A:=0;
    N:=0;
    while (A)<5 do begin
      N:=N+1;
      A:=A+(1/N);
       end;
    WriteLn ('Всего ',N,' слагаемых');
    end.
    1. Ответ
      Ответ дан Ник1998
      спасибо вам огромное, вы просто волшебник
Самые новые вопросы