var n,i:integer;
s:real;
begin
write('n=');readln(n);
s:=0;
for i:=1 to n do s:=s+(1/i)+(1/(i+1));
writeln(' Tong la: ',s:0:1);
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ự
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!}\)
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 \(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 S=1-\(\dfrac{1}{2}+\dfrac{1}{3}-\dfrac{1}{4}+...-\dfrac{1}{2n}\)
Với n nhập từ bàn phím
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 sau:
\(\dfrac{1}{1.3}\)+\(\dfrac{1}{2.4}\)+\(\dfrac{1}{3.5}\)+...\(\dfrac{1}{n\left(n+2\right)}\)
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
A=1+\(\dfrac{1}{4.5}\)+ ...... + \(\dfrac{1}{n^2\left(n^2+1\right)}\)
tính tổng:
lập chuong trinh nhap x và n
tính S=1+x+\(\dfrac{x^2}{2!}+\dfrac{x^3}{3!}+.....+\dfrac{x^n}{n!}\)