program bai1;
var s,n:longint;
begin
write('N= ');readln(n);
s:=1;
for i:=2 to n do
s:=s+1/(sqr(i)*(sqr(i)+1);
write('s= ',s);
readln
end.
Đúng 0
Bình luận (0)
Bài 7. Câu lênh lặp
Các câu hỏi tương tự
22 tháng 1 2019 lúc 12:32
Viết chương trình in kết quả ra màn hình với n là số nguyên dương được nhập từ bàn phím
\(\left(1+\dfrac{1}{1^2}\right)\left(1+\dfrac{1}{2^2}\right).\left(1+\dfrac{1}{3^2}\right).....\left(1+\dfrac{1}{n^2}\right)\)
Viết chương trình tính \(S=\dfrac{1}{1\cdot3}+\dfrac{1}{2\cdot4}+\dfrac{1}{3\cdot5}+\cdot\cdot\cdot\cdot\cdot+\dfrac{1}{n\left(n+2\right)}\)
Viết chương trình tính tổng :
1, \(\dfrac{1}{1.2}+\dfrac{1}{2.3}+\dfrac{1}{3.4}+.....\dfrac{1}{n\left(n+1\right)}\)
2, \(\dfrac{1}{1}+\dfrac{1}{3}+\dfrac{1}{5}+.....\dfrac{1}{2n-1}\)
Viết chương trình tính tổng sau:
\(\dfrac{1}{1.3}\)+\(\dfrac{1}{2.4}\)+\(\dfrac{1}{3.5}\)+...\(\dfrac{1}{n\left(n+2\right)}\)
N được nhập từ bàn phím, viết chương trình tính:
\(\left(1+\frac{1}{1^2}\right)\left(1+\frac{1}{2^2}\right)\left(1+\frac{1}{3^2}\right)......\left(1+\frac{1}{n^2}\right)\)
\(1!+2!+3!+....+n!\)
Viết chương trình tính:
a.\(\text{ }\text{ }1+\dfrac{1}{2!}+\dfrac{1}{3!}+...+\dfrac{1}{n!}.\)
b. \(1+\dfrac{1}{2^2}+\dfrac{1}{3^2}+...+\dfrac{1}{n^2}.\)
c. \(3+\dfrac{4}{3}+1+...+\dfrac{n+2}{2n-1}.\)
viết chương trình tính tổng s=1+\(\dfrac{1}{1}+\dfrac{1}{2}+\dfrac{1}{3}+.....+\dfrac{1}{N}+\dfrac{1}{N+1}\)
Mọi người ơi mình đang cần gắp ạ !
Đề bài đây
S = 1 +\(\dfrac{1}{2.3}\) + \(\dfrac{2}{3.4}\)+ ...+ \(\dfrac{n}{\left(n+1\right)-\left(n+2\right)}\)
CẢM ƠN MN TRƯỚC
Viết chương trình tính tổng :
1, S= \(\dfrac{1}{2}+\dfrac{1}{4}+\dfrac{1}{6}+....+\dfrac{1}{2n}\)
2,S= \(\dfrac{1}{1!}+\dfrac{1}{2!}+\dfrac{1}{3!}+...+\dfrac{1}{n!}\)