viết chương trình tính tổng s=1+\(\dfrac{1}{1\cdot2}\)+\(\dfrac{1}{2\cdot3}+\dfrac{1}{3\cdot4}\)+............+\(\dfrac{1}{n\left(n+1\right)}\)với n là số nguyên nhập từ bàn phím.
var i,n:integer;
s:real;
begin
s:=1;
write('ban hay nhap vao mot so nguyen: '); readln(n);
for i:= 1 to n do
s:= s + (1/(i*(i+1));
writeln(' tong s = ',s:0:2);
readln
end.
var i,n:integer;
s:real;
begin
s:=1;
write('ban hay nhap vao mot so nguyen: '); readln(n);
for i:= 1 to n do
s:= s + (1/(i*(i+1));
writeln(' tong s = ',s:0:2);
readln
end.