Những câu hỏi liên quan
DoDi Na
Xem chi tiết
Rhider
Xem chi tiết
EnderCraft Gaming
Xem chi tiết
Isabella
Xem chi tiết
Duy Nguyen Le Khanh
Xem chi tiết
Lê Thị Cẩm Giang
Xem chi tiết
Minh Lệ
14 tháng 3 2023 lúc 19:39

Sửa lại đề bài : \(A=....+\dfrac{1}{n\left(n+2\right)}\)

Program HOC24;

var i,n: integer;

a: real;

begin

write('Nhap n: '); readln(n);

a:=0;

for i:=1 to n do a:=a+1/(n*(n+2));

write('A = ',a:6:2);

readln

end.

Kamato Heiji
Xem chi tiết
Nguyễn Lê Phước Thịnh
25 tháng 1 2021 lúc 18:54

Thuật toán: 

Bước 1: Nhập n

Bước 2: i←1; a←0;

Bước 3: a←a+1/(i*(i+2));

Bước 4: i←i+1;

Bước 5: Nếu i<=n thì quay lại bước 3

Bước 6: xuất a

Bước 7: Kết thúc

Viết chương trình:

uses crt;

var a:real;

i,n:longint;

begin

clrscr;

write('Nhap n='); readln(n);

a:=0;

for i:=1 to n do

a:=a+1/(i*(i+2));

writeln(a:4:2);

readln;

end.

Bùi Anh Tuấn
25 tháng 1 2021 lúc 19:38

Nguyễn Thị Ngọc Bảo
Xem chi tiết
Đào Anh Phương
Xem chi tiết