Найти сумму чисел 1+1/2+1/3+…+1/N

Вычисление суммы гармонического ряда 1 + 1/2 + 1/3 + ... + 1/N

Постановка задачи

Дано натуральное число N. Необходимо вычислить сумму гармонического ряда:

S = 1 + 1/2 + 1/3 + ... + 1/N

Примечание: Для точного результата используем вещественный тип данных.

Алгоритм решения

1. Вводим значение N с клавиатуры
2. Инициализируем переменную для суммы (s = 0)
3. Используем цикл while с параметром i от 1 до N
4. На каждой итерации добавляем к сумме 1/i
5. Выводим полученную сумму

Решение на Pascal с пояснениями

program HarmonicSeries;
var
  i, n: integer; // Счетчик и верхняя граница
  s: real;       // Для хранения суммы ряда
begin
  // Ввод числа N
  write('Введите натуральное число N: ');
  readln(n);
  
  // Инициализация переменных
  s := 0;
  i := 1;
  
  // Цикл вычисления суммы
  while i <= n do
  begin
    s := s + 1/i; // Добавляем очередной элемент ряда
    i := i + 1;    // Увеличиваем счетчик
  end;
  
  // Вывод результата с 4 знаками после запятой
  writeln('Сумма ряда: ', s:0:4);
end.

Пояснение работы программы:

1. Программа запрашивает ввод натурального числа N
2. Инициализирует переменные: s (сумма) и i (счетчик)
3. Цикл while выполняется пока i ≤ N
4. На каждой итерации к сумме добавляется 1/i
5. После цикла выводится отформатированный результат

Примеры работы программы

Пример 1: N = 5

Введите натуральное число N: 5
Сумма ряда: 2.2833

Пример 2: N = 10

Введите натуральное число N: 10
Сумма ряда: 2.9290