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

Натуральное число N вводится с клавиатуры. Найти сумму чисел 1+1/2+1/3+…+1/N. 

Запустим цикл while с начальным значением счетчика i = 1 и условием продолжения цикла i<=n. В теле цикла будем накапливать сумму слагаемых 1/i и увеличивать значение счетчика на 1.

Программа решения на языке Паскаль:

var i,n:integer; s:real;

begin

readln(n);

s:=0; i:=1;

while i<=n do

begin

s:=s+1/i;

i:=i+1;

end;

writeln(s);

end.

Результат запуска программы

1 запуск

2 запуск

Операторы цикла (читать)