Question

Дано натуральное число N. найти сумму S=1+1/2+1/3+...+1/N. цикл которым надо сделать while ...do

Answer 1

// PascalABC.NET 3.2, сборка 1447 от 22.05.2017
// Внимание! Если программа не работает, обновите версию!

1. Современная запись

begin
  var n:=ReadInteger('n=');
  (var s,var i):=(0.0,1);
  while i<=n do (i,s):=(i+1,s+1/i);
  Writeln('S=',s)
end.

Пример
n= 5
S=2.28333333333333

2. Школьная запись

var
  i,n:integer;
  s:real;
begin
  Write('n='); Read(n);
  i:=1;
  s:=0;
  while i<=n do begin
    s:=s+1/i;
    i:=i+1
    end;
  Writeln('S=',s)
end.

Answer 2

Для решения данной задачи нам понадобится использовать цикл типа "while...do".

Алгоритм решения будет следующим: 1. Инициализируем переменные sum и i со значениями 0. 2. Вводим натуральное число N. 3. Пока i < N, выполняем следующие действия: - Увеличиваем i на 1. - Добавляем к sum значение 1/i. 4. Выводим значение sum.

Пример кода на языке Python:

sum = 0
i = 0

N = int(input("Введите натуральное число N: "))

while i < N:
    i += 1
    sum += 1/i

print("Сумма равна", sum)

После запуска данного кода, программа запросит у пользователя ввести натуральное число N. Затем она выполнит цикл, добавляя к переменной sum значения 1/1, 1/2, 1/3, ..., 1/N. После окончания цикла программа выведет результат - сумму всех дробей.