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.