Задать вопрос
19 января, 15:14

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

+5
Ответы (1)
  1. 19 января, 16:33
    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 ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы