Для заданного числа N составьте программу вычисления суммы S=1+1/2+1/3+1/4 + ... + 1/

N, где N - натуральное число.

Question

Ипатий

14 ноября, 18:21

+5

Ответы (1)

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

Леонтьич · Answer 1

Var

i, n: integer;

s: real;

begin

write ('Введите n: ') ;

readln (n) ;

for i:=1 to n do

s:=s+1/i;

writeln (s) ;

end.

Для заданного числа N составьте программу вычисления суммы S=1+1/2+1/3+1/4 + ... + 1/N, где N - натуральное число.