uses crt;
var n,i: integer;
A:real;
writeln('Nhap n = '); read(n);
A:=0;
for i:= 1 to n do
A:=A + 1/(i*(i+2));
writeln('A = ',A);
readln
end.
Đúng 0
Bình luận (0)
Lập trình đơn giản
Các câu hỏi tương tự
25 tháng 1 2021 lúc 18:24
Viết thuật toán và chương trình để tính tổng \(A=\dfrac{1}{1.3}+\dfrac{1}{2.4}+\dfrac{1}{3.5}+...+\dfrac{1}{n\left(n+2\right)}\)
Viết chương trình tính A
A= \(\dfrac{1}{1.3}+\dfrac{1}{2.4}+\dfrac{1}{3.5}+...\dfrac{1}{n\left(n+2\right)}\)
Viết chương trình nhập số n từ bàn phím và đếm xem có bao nhiêu số lẻ(n>0)
MÌNH ĐANG CẦN GẤP MỌI NGƯỜI GIÚP MÌNH NHANH NHÉ :)))))Khởi động chương trình pascal, viết chương trình nhập số ttuwj nhiên n sao cho 5n100, nếu nhập sai yêu cầu nhập lại đúng thì tính tổng Sn:Snfrac{1.2}{3.4}+frac{2.3}{4.5}+frac{3.4}{5.6}+....+frac{n.left(n+1right)}{left(n+2right)left(n+3right)}- Mình mới dùng nên phân số còn hơi chệch choạc, mong mn thông cảm nhé.
Đọc tiếp
MÌNH ĐANG CẦN GẤP MỌI NGƯỜI GIÚP MÌNH NHANH NHÉ :)))))
Khởi động chương trình pascal, viết chương trình nhập số ttuwj nhiên n sao cho 5<n<100, nếu nhập sai yêu cầu nhập lại đúng thì tính tổng Sn:
Sn=\(\frac{1.2}{3.4}\)+\(\frac{2.3}{4.5}\)+\(\frac{3.4}{5.6}\)+....+\(\frac{n.\left(n+1\right)}{\left(n+2\right)\left(n+3\right)}\)
- Mình mới dùng nên phân số còn hơi chệch choạc, mong mn thông cảm nhé.
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=\(\dfrac{1}{1.3}+\dfrac{1}{2.4}+\dfrac{1}{3.5}+...........+\dfrac{1}{n\left(n+2\right)}\)
mn viết ra cho mk như chương trình free pascal nhoa
mk yeu mn nhìu
Viết chương trình tính giá trị của biểu thức:
\(\dfrac{1}{1.3}+\dfrac{1}{2.4}+...+\dfrac{1}{n(n+2)}\)
Lập trình tính tổng dùng lệnh lặp while ...do trong đó n là số tự nhiên được nhập từ bàn phím
\(A=1+\frac{1}{2}+\frac{1}{3}+\frac{1}{4}+.....+n\left(n\in N\right)\)
giúp e với ạ ,cảm ơn rất nhiều
đủ nắng hoa sẽ nở,đủ sự giúp đỡ từ mọi người e sẽ ko tạch môn tin :>
\(B=\left(\frac{6}{a-1}+\frac{10-2\sqrt{a}}{a\sqrt{a}-a-\sqrt{a}+1}\right)\cdot\frac{\left(\sqrt{a}-1\right)^2}{4\sqrt{a}}\) (với a>0;a≠1)
Đặt \(C=B\cdot\left(a-\sqrt{a}+1\right)\) . So sánh C và 1
Viết biểu thức toán sau đây dưới dạng biểu thức trong Pascal
\(\frac{x^2}{3+y}+2+4-\frac{\left(a+b\right).c}{8+y}-\left(\frac{a}{b}\right)^2\)
1. Viết chương trình tính tổng sau:a) S 1+dfrac{1}{2}+dfrac{1}{3}+...+dfrac{1}{n}b) S 1+dfrac{1}{3}+dfrac{1}{5}+...+dfrac{1}{n}2. Viết chương trình nhập 2 số nguyên a và b. Tìm bội chung nhỏ nhất3. Cho một dãy số gồm N phân tử:- Tính tổng các phân tử trong dãy số- Tìm phân tử lớn nhất- In ra màn hình các số nguyên tố có trong dãy
Đọc tiếp
1. Viết chương trình tính tổng sau:
a) S = \(1+\dfrac{1}{2}+\dfrac{1}{3}+...+\dfrac{1}{n}\)
b) S = \(1+\dfrac{1}{3}+\dfrac{1}{5}+...+\dfrac{1}{n}\)
2. Viết chương trình nhập 2 số nguyên a và b. Tìm bội chung nhỏ nhất
3. Cho một dãy số gồm N phân tử:
- Tính tổng các phân tử trong dãy số
- Tìm phân tử lớn nhất
- In ra màn hình các số nguyên tố có trong dãy