viết chương trình tính tổng s=1/3+1/5+1/7...+1/(2n+1) in kết quả ra màn hình với n là số nguyên dương được nhập vào bàn phím giúp e vóiq ạ..hứa vote 5*(k copy)+camon
2 câu trả lời
program bai_giai;
uses crt;
var n,i:longint;s:real;
begin
clrscr;
write('nhap n:');readln(n);
s:=0;
for i:=1 to n do s:=s+1/(2*n+1);
write('s=',s);
readln
end.
Mình gửi đáp án ạ:
Var n,i:Longint;
tong:real;
Begin
Read(n);
i:=3;
While i<=2*n+1 do
Begin
tong:=tong+ (1/i);
i:=i+2;
End;
Write(tong:2:2);
Readln;
End.