Задать вопрос Регистрация
Помочь другим

  • 1)дано  целое число N(больше 0). Найти сумму 1+1/2+1/3.....1/N(вещественное число). Входные данные: ввести целое числоN(1<=n<=20)

    Выходные данные: вывести сумму 1+1/2=1/3+.....1N с точностью до 4 цифр в дробной части.( в паскале)

Ответы 1

  • var H: real;

       N, i: integer;

    begin

       H := 0;

       readln(N);

       for i := 1 to N do

          H := H + 1/i;

       writeln(H:6:4)

    end.

    • Автор:

      daisy70
    • 5 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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