Tin học Viết thuật toán

[kioshiro1234]

[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.

Mô tả thuật toán tính tổng sau:
A = 1/1.3 + 1/2.4 + 1/3.5 +....+ 1/n(n+2)

 

[smile_a2]

Trả lời: program bt;
uses crt;
var n,i: integer; A: real;
begin
write ('Nhap so n = '); readln (n);
A:=0;
for i:=1 to n do A:= A + 1/(i*(i+2));
writeln ('Tong A=1/1.3+1/2.4/+1/3.5+ ... +1/n(n+2) la: ', A:3:3);
readln;
end.