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

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

Question

Информатика

Сергуся

21 ноября, 17:54

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

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

+4

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