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.