Написать программу для нахождения суммы 1/1+1/2+1/3 + ... 1/n

Question

Информатика

Петюша

16 мая, 07:38

Написать программу для нахождения суммы 1/1+1/2+1/3 + ... 1/n

+5

Ответы (2)

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

Марлеша · Answer 1

Var c, c1:real;

i, b, a, b1, n:integer;

begin

readln (n) ;

b:=1; a:=1; c:=0;

for i:=1 to n do

begin

b1:=b+1;

c:=a/b1;

end;

c1:=c + (1/1) ;

write (c1:0:3) ;

end.

Досифея · Answer 2

Var i, n: integer;

S: real;

Begin

Readln (n) ;

S:=0;

For i:=1 to n do S:=S+1/i;

Write (' Сумма равна: ', S) ;

Readln;

End.