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

Question

Информатика

Айжаксым

31 марта, 16:41

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

+4

Ответы (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.