Помогите, Решить в Паскале:S=1/(1+1)+1/(1+2)+...1/(1+n)
Помогите, Решить в Паскале:
S=1/(1+1)+1/(1+2)+...1/(1+n)
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы