For10. дано целое число N (>0). найти сумму 1+1/2 + 1/3 ... + 1/N

Question

Информатика

Ларуля

26 августа, 23:04

For10. дано целое число N (>0). найти сумму 1+1/2 + 1/3 ... + 1/N

+5

Ответы (1)

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

Тарасий · Answer 1

Var n, i:integer;

sum:real;

begin

writeln ('Введите N = ') ;

read (n) ;

sum:=1;

for i:=1 to n do

sum:=sum+1/i;

writeln ('Сумма равна ', sum) ;

end.