Задать вопрос
11 января, 12:15

Дано натуральное число n. Написать программу для вычисления суммы 1/1+1/2+1/3 + ... + 1/n

+5
Ответы (1)
  1. 11 января, 14:00
    0
    Program n1;

    var n, i: integer;

    sum: real;

    begin

    sum:=0;

    readln (n);

    for i:=1 to n do sum:=sum+1/i;

    write (sum);

    end.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Дано натуральное число n. Написать программу для вычисления суммы 1/1+1/2+1/3 + ... + 1/n ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы