Viết chương trình pascal tính: 1-1/3+1/5-1/7+...+1/2n-1 - 1/2n+1
2 câu trả lời
program ct;
uses crt;
var i,n:integer;
S:real;
begin clrscr;
write('Nhap so n: '); readln(n);
S:=0;
for i:=2 to n do
S:=S+1/(2*i-1)-1/(2*i+1);
write('Tong la: ',S);
readln;
end.
Học tốt!
uses crt;
var n,i : integer;
t : real;
begin clrscr;
t:=0;
write('Nhap n:'); readln(n);
for i:=0 to n do if i mod 2 =0 then t:=t+1/(2*i+1) else t:=t-1/(2*i+1);
write('Tong :', t:3:3);
readln
end.
Câu hỏi trong lớp
Xem thêm