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.