Program HOC24;
var a: real;
i,n: integer;
begin
write('Nhap n='); readln(n);
a:=0;
for i:=1 to n do a:=a+1/i;
write('A= ',a);
readln
end.
Viết chương trình tính tổng B = \(\dfrac{1}{1.3}\) + \(\dfrac{1}{2.4}\) +\(\dfrac{1}{3.5}\) + ... + \(\dfrac{1}{n\left(n+2\right)}\)
________________________________________
Mọi người giúp mình với ạ, mình sắp thi rồi :((
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
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!
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 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+1/2+1/3+...+1/100
Viết chương trình tìm và xuất ra số tự nhiên N lớn nhất để tổng S=1+2+3+4+...+N <1000000
Em đang cần gấp mong mọi người trả lời giúp
Viết chương trình tính tổng 1+5+10+15+...+n Giúp em vs ạ đg cần gấp!!
Viết chương trình tìm số N . Sao cho tổng từ 1 đến N bé hơn hoặc bằng 100 . T = 1+ 2+3 ........+ ? = 100
