var n,i:integer;
s:real;
begin
write('n=');readln(n);
s:=0;
for i:=1 to n do
s:=s+1/(i*(i+1));
writeln(' tong la: ',s);
readln;
end.
viết lại đề xuống bình luận hộ mik nhé mik ko nhìn thấy
A=\(\dfrac{1}{1.3}+\dfrac{1}{2.4}+\dfrac{1}{3.5}+...+\dfrac{1}{n.\left(n+2\right)}\)
var n,i:integer;
a:real;
begin
write('n=');readln(n);
a:=0;
for i:=1 to n do
a:=a+1/(i*(i+2));
writeln(' Tong la: ',a);
readln;
end.