tính tổng (với n nhập từ bàn phím)
1/2,3 + 1/3,4 +1/45 +1/56 +……… + 1/n(n+1) giúp mik vs ạ

Question

tính tổng (với n nhập từ bàn phím) 1/2,3 + 1/3,4 +1/45 +1/56 +......... + 1/n(n+1) giúp mik vs ạ

dananhthu · Answer

program tong;

uses crt;

var n,i: integer;

T: real;

Begin

clrscr;

write(‘Nhap n: ‘); readln(n);

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

write(‘T = ‘,T:2:2);

readln

End.

bichha · Answer

program tong;

uses crt;

var n,i:integer;

S:real;

begin

clrscr;

write(‘Nhap n: ‘); readln(n);

S:=0;

for i:=1 to n do

S:=S+1/(n*(n+1));

write(‘Tong la: ‘,s:0:2);

readln;

end.

tính tổng (với n nhập từ bàn phím) 1/2,3 + 1/3,4 +1/45 +1/56 +–. + 1/n(n+1) giúp mik vs ạ