Question

[Duongtrucqui]

Sử dụng lệnh lặp While do để tính tổng

S=\(\frac{1}{1.2}\)+\(\frac{1}{2.4}\)+\(\frac{1}{36}\)+...+\(\frac{1}{n\left(n+2\right)}\)

Giúp mik với ạ mai mik kt rồi !!!!

Answer 1

[Nguyễn Lê Phước Thịnh]

Cộng cho 1/n(n+n) chứ bạn

uses crt;

var i,n:integer;

s:real;

begin

clrscr;

write('nhap n='); readln(n);

s:=0;

i:=1;

while i<=n do

begin

s:=s+1/(i*(i+i));

i:=i+1;

end;

writeln(s:4:2);

readln;

end.