Question

напишите программы вычисления сумм ста слагаемых,имеющих вид дроби (i+1)/(i+2) (тема цикл)

Answer 1

Program Sum100;

Var i:integer;S:real;

begin

S:=0;

For i:=1 to 100 do S:=S+(i+1)/(i-1);

writeln(S);

end.