giúp mình với, đang cần gấp 3a. Hãy mô tả thuât toán để 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) b. Viết chương trình Pascal tính tổng A.

2) var i,n,s:integer;

begin

readln(n); s:=0;

for i:=1 to n do s:=s+i;

writeln(s);

readln;

end.

3) var i,n:integer; s:real;

begin

readln(n); s:=0;

for i:=1 to 200 do s:=s+i;

writeln(s);

readln;

end.

4) Var i,n:integer; s:real;

begin

readln(n); s:=1;

for i:=1 to 30 do s:=s+i;

writeln(s);

end.

6) var i,n,x,k:integer; s:real;

begin

readln(n); s:=0;

for i:=1 to n do

for x:=1 to n do

s:=x*i;

writeln(s);

end.

5) Var i,n:integer; s:longint;

begin

readln(n); s:=1;

for i:=1 to n do s:=s*i;

writeln(s);

end.