(TIN 8) Viết chương trình

[Thần Thương Dạ]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết chương trình tính tổng sau:

 

[H.Bừn]

program ct;
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+2));
write('Tong =',s:5:2);
readln
end.