Помогите, Решить в Паскале:

S=1 / (1+1) + 1 / (1+2) + ... 1 / (1+n)

Question

Информатика

Патрикий

25 августа, 12:12

Помогите, Решить в Паскале:

S=1 / (1+1) + 1 / (1+2) + ... 1 / (1+n)

+5

Ответы (1)

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

Федюня · Answer 1

Program w;

Var i, n: integer;

S: real;

Begin

writeln ('Введите число повторений') ;

readln (n) ;

for i:=1 to n do S:=S+1 / (1+n) ;

writeln (S) ;

End.

Помогите, Решить в Паскале:S=1 / (1+1) + 1 / (1+2) + ... 1 / (1+n)

Помогите, Решить в Паскале:

S=1 / (1+1) + 1 / (1+2) + ... 1 / (1+n)