1 Viết chương trình tính tổng S=1/3+1/5+1/7+…+2n/2n+1. In kết quả ra màn hình và n là số nguyên dương nhập từ bàn phím
2 câu trả lời
uses crt;
var k, n : integer; S : real;
begin
clrscr;
S := 0;
write('nhap so nguyen n : '); readln(n);
for k := 1 to n do S := S + 1 / (2 * k + 1);
writeln('Gia tri S = ', S : 2 : 3);
readln
end.
Program baitap;
Uses crt;
Var n,i:integer;
S:real;
Begin
Clrscr;
S:=0;
Write('n='); Readln(n);
For i:=1 to n do S:=S+(2*n)/(2*n+1);
Writeln('S=',S:5:2);
Readln
End.