Giúp mình với ạ. Mình bị lấn cấn quá hiccc
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
Uses Crt;
Var n,i: longint; s: real;
begin
clrscr;
Read(n); s:= 0;
For i:= 0 to n do
If i mod 2 = 0 then s:= s + 1/sqr(i+2)
else s:= s - 1/sqr(i+2);
Writeln('a.',s:0:2); s:= 0;
For i:= 0 to n do
If i mod 2 = 0 then s:= s + ((i+1)*(i+3))/(i+2)
else s:= s - ((i+1)*(i+3))/(i+2);
Writeln('b.',s:0:2); s:= 0;
For i:= 0 to n do
If i mod 2 = 0 then s:= s + sqr(i+1)/(i+2)
else s:= s - sqr(i+1)/(i+2);
Writeln('c.',s:0:2);
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin