Viết chương trình giá trị biểu thức S S=1+1/1.2+1/2.3+...+1/N(N+1)
2 câu trả lời
program ct;
uses crt;
var S:real;
n,i:integer;
begin
clrscr;
write('nhap n:=');readln(n);
S:=0;
for i:=1 to n do S:=S+1/i*(i+1);
writeln('S:=',S);
readln
end.
uses crt;
var i,n:integer;s:real;
begin
clrscr;
readln(n);
s:=1
for i:=1 to n do s:=s+1/(i*(i+1);
write(s:10:2);
readln
end.