Program HOC24;
var b: real;
i,n: integer;
begin
write('Nhap n='); readln(n);
b:=0;
for i:=1 to n do b:=b+1/(i+2);
write('B= ',b:1:2);
readln
end.
Viết chương trình tính tổng A = \(\dfrac{1}{1}\) + \(\dfrac{1}{2}\) + \(\dfrac{1}{3}\) + ... + \(\dfrac{1}{n}\)
__________________________
Rất mong mọi người giúp đỡ mình ạ T-T
Viết chương trình tính tổng sau :
\(1+\dfrac{1}{2^2}+\dfrac{1}{3^2}+\dfrac{1}{4^2}+...+\dfrac{1}{n^2}\)
Với n là số tự nhiên nhập từ bàn phím
Mô tả thuật toán và viết chương trình tính tổng của dãy sau:
A= 1/1.3+1/2.4+1/3.5+ ... + 1/n(n+2)
Bài 1: Tính tổng ( Sử dụng lệnh while....do )
A=1+\(\dfrac{1}{2}\) +\(\dfrac{1}{3}\) +.......+\(\dfrac{1}{n}\) ( n được nhập từ bàn phím )
Bài 2: Tính tổng ( Sử dụng lệnh while....do )
T=1+\(\dfrac{1}{3}\) +\(\dfrac{1}{5}\) +........+\(\dfrac{1}{n}\) ( n nhập từ bàn phím )
Bài 3: Tính tổng ( Sử dụng lệnh while....do )
A=\(\dfrac{1}{1\cdot3}\) + \(\dfrac{1}{2\cdot4}\) + \(\dfrac{1}{3\cdot5}\) +.........+\(\dfrac{1}{n\left(n+2\right)}\) ( n nhập từ bàn phím )
Giúp với mai mink ktra rồi!
Câu 3: Viết chương trình tính tổng S= 
1+1/2^2+1/3^3+...+1/n^2 với n
N*cho trước (Sử dụng vòng lặp while..do)
Các bạn giúp mình được không ạ.
Viết chương trình tính tổng T = 1 + \(\dfrac{1}{2}+\dfrac{1}{3}+......+\dfrac{1}{100}\)
( có thể sử dụng while...do , for...do )
Câu hỏi: Viết chương trình tính n!
_______________________________________
Mọi người giúp mình với, mình đang cần gấp ạ!
Viết chương trình nhập dãy số nguyên gồm n phần tử . In lên màn hình. Tính trung bình các phần tử chẳn lẻ . In lên màn hình
Giúp mình với ạ mai mình thi rồi
Viết chương trình tính tổng 1+5+10+15+...+n Giúp em vs ạ đg cần gấp!!
