Написать программу в паскале для вычисления суммы ряда

Sn=1+1/2+1/3 + ... + 1/n, где n - натуральное число, вводимое с клавиатуры

Question

Рома

17 июня, 19:41

+1

Ответы (1)

Знаете ответ на вопрос?

Кеня · Answer 1

Var sum: real; i, n: integer;

begin

readln (n) ;

sum : = 0;

for i : = 1 to n do

sum : = sum + 1 / i;

writeln (sum:3:3) ;

end.

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