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.