Bài 7. Câu lênh lặp

T__T

Tính tổng dãy số sau:

1+\(\frac{1}{1+3}\)+\(\frac{1}{3+5}+\frac{1}{5+7}\)+.....+ \(\frac{1}{n.\left(n+2\right)}\)

Nguyễn Lê Phước Thịnh
16 tháng 6 2020 lúc 21:44

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

write('Nhap n='); readln(n);

s:=1;

for i:=1 to n do

s:=s+1/(i+(i+2));

writeln('Ket qua la: ',s:4:2);

readln;

end.

Bình luận (0)
Minh Lệ
16 tháng 6 2020 lúc 21:45

Program HOC24;

var t: real;

i,n: integer;

begin

write('Nhap n='); readln(n);

t:=1;

for i:=1 to n do

t:=s+1/(i*(i+2));

write('Tong cua day so la : ',t);

readln

end.

Bình luận (0)

Các câu hỏi tương tự
Cold Wind
Xem chi tiết
Nitrox vntm
Xem chi tiết
Huỳnh Thị
Xem chi tiết
Krissy
Xem chi tiết
Sách Giáo Khoa
Xem chi tiết
Mạnh Dương Nguyễn
Xem chi tiết
Duongtrucqui
Xem chi tiết
Trần Bảo Khanh
Xem chi tiết
nattly
Xem chi tiết