Составьте программу, которая находит сумму чисел, обратных числам целым числам от 1 до N, т. е. S=1/1+1/2+1/3 + ... + 1/N.

Question

Информатика

Джэри

4 марта, 19:48

Составьте программу, которая находит сумму чисел, обратных числам целым числам от 1 до N, т. е. S=1/1+1/2+1/3 + ... + 1/N.

+2

Ответы (1)

Знаете ответ?

Аполинарья · Answer 1

Program abc;

var

n, i: integer;

s: real;

begin

write ('Введите количество чисел: ') ;

readln (n) ;

for i : = 1 to n do

s : = s + 1 / i;

write ('Сумма обратных чисел = ', s) ;

end.