Các bạn ơi giúp mình vs:
Viết chương trình tính tổng: 1/2*2/3+2/3*3/4+….+99/100*100/101
Các bạn ơi giúp mình vs: Viết chương trình tính tổng: 1/2*2/3+2/3*3/4+-+99/100*100/101
By Anna
By Anna
Các bạn ơi giúp mình vs:
Viết chương trình tính tổng: 1/2*2/3+2/3*3/4+….+99/100*100/101
uses crt;
var i:byte;
t:real;
begin
clrscr;
t:=0
for i:=2 to 100 do
t:=t+((i-1)/i)*(i/(i+1))
writeln(‘tong la: ‘,t:1:2);
readln;
end.
Program abc;
Uses crt;
Var i : longint;
s : real;
Begin
Clrscr;
i:=2;
While n<=100 do
Begin
s:=s+((i-1)/i)*(i/(i+1));
i:=i+1;
End;
Writeln(‘Tong tren co gia tri la: ‘,s:1:1);
Readln
End.