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

Question

Информатика

Валерьян

22 августа, 06:12

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

+3

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