Bài 9. Làm việc với dãy số

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Hoàng Hà

viết công thức tính : tính tổng các số 1+ 1/2*3+....+1/n*(n+1) trên Pascal

Leejung Kim
15 tháng 2 2018 lúc 13:34

Var i,n:integer;

S:real;

Begin

Write(' nhap n : ');

Readln(n);

S:=1;

For i:= 1 to n do S:= S+1/i*(i+1);

Writeln (' tong cac so :',S);

Readln;

end.


Các câu hỏi tương tự
Nghia PHam
Xem chi tiết
quocviet2808
Xem chi tiết
Nguyễn Tiến Đạt 8/1
Xem chi tiết
Nguyễn anh đức
Xem chi tiết
phương anh
Xem chi tiết
Học .com
Xem chi tiết
Hoàng Long Đậu
Xem chi tiết
Cac Son
Xem chi tiết
Nhật
Xem chi tiết