KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
program phuongt; uses crt; var n, i: integer; A: real; begin clrscr; write(‘Nhap n = ‘); readln(n); for i:=1 to n do A:=1/((1+i)*(2+i)); write(‘A = ‘, A:3:1); readln end.
program tinh_A;
uses crt;
var n,i:integer;
A:real;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
A:=0;
for i:=1 to n do
A:=A+1/((1+i)*(2+i));
write(‘A= ‘,A:0:3);
readln;
end.
program phuongt;
uses crt;
var n, i: integer;
A: real;
begin
clrscr;
write(‘Nhap n = ‘); readln(n);
for i:=1 to n do A:=1/((1+i)*(2+i));
write(‘A = ‘, A:3:1);
readln
end.