em hãy viết chương trình để tính tổng A sau đây( n là số tự nhiên được nhập vào từ bàn phím) A=1/1*3+1/2*4+1/3*5+.......+1/n*(n+2)
1 câu trả lời
Đáp án + Giải thích :
uses crt;
var n:longint;
A:real;
begin
clrscr;
readln(n);
while n> 0 do
begin
A:=A+1/n.(n+);
dec(i);
write(‘A = ‘,A);
readln;
end.