Viết chương trình tính tổng S = 1/1+1/3+1/5+1/7+...+1/2n+1(n€N) ( với số n được nhập từ bàn phím )
2 câu trả lời
uses crt;
var s:real;
i,n:integer;
begin
write('Nhap n: '); readln(n);
s:=1;
for i:=1 to n do s:=s+(1/(2*i+1));
write('S=',S:4:2);
readln
end.
program ct;
uses crt;
var i,n:integer;
S:real;
begin clrscr;
writeln('Nhap so n: '); readln(n);
S:=0;
for i:=0 to n do
S:=S+1/2*i+1;
write('Tong S la: ',S);
readln;
end.
Học tốt!