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

Ответы 1

  • Var N :integer;var A: real;beginA:=0;N:=0;while (A)<5 do begin  N:=N+1;  A:=A+(1/N);   end;WriteLn ('Всего ',N,' слагаемых');end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years