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.