Viết chương trình tính tổng sau: S = 1 + 1/3 + 1/5 + ... + 1/(2n+1) (n được nhập từ bàn phím) (Dãy số)

2 câu trả lời

program ct;

uses crt;

var i,n:integer;

      S:real;

begin clrscr;

   write('Nhap so n: ); readln(n);

     S:=0;

   for i:=1 to n do

     S:=S+(1/2*i+1);

   writeln('Tong S la: ',S);

readln;

end.

Học tốt!

program ct;

uses crt;

var i,n:integer;s:real;

begin  

clrscr;

write('nhap n:=');readln(n);

s:=0;

for i:=1 to n do s:=s+(1/2*i+1);

writeln('tong cua s:=',s);

readln

end.