Question

viết chương trình tính tổng

 s= 1*2/3*4+2*3/4*5+3*4/5*6+...+n*(n+1)/(n+2)*(n+3)

Answer 1

uses crt;

var s:real;

i,n:integer;

begin

clrscr;

readln(n);

s:=0;

for i:=1 to n do 

  s:=s+(n*(n+1))/((n+2)*(n+3));

writeln(s:4:2);

readln;

end.