Cộng cho 1/n(n+n) chứ bạn
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
write('nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+1/(i*(i+i));
i:=i+1;
end;
writeln(s:4:2);
readln;
end.
sử dụng câu lệnh lặp while..do,viết chương trình tính tổng S
Biết S =\(1+\frac{1}{3}+\frac{1}{5}+...+\frac{1}{n}\) với n được nhập từ bàn phím
GIÚP EM MN ƠI, MAI EM NỘP R Ạ T-T.
Xoá sạch màn hình kết quả, sử dụng vòng lặp While . do hoặc For..do viết chương trình tính tổng sau: S=1/1*2+1/2*3+1/3*4+.....+1/n*(n+1)
N nhập từ bàn phím
Viết chương trình sử dụng câu lệnh lặp để tính tích liên tục của N số tự nhiên.
giúp mik nhé mai mik thi học kì 1 rồi. cần gấp lắm ạ
Hãy mô tả thuật toán để tính tổng sau đây:
A = \(\frac{1}{1.3}\)+\(\frac{1}{2.4}\)+\(\frac{1}{3.5}\)+...+\(\frac{1}{n\left(n+2\right)}\).
Hãy mô tả thuật toán để tính tổng sau đây:
\(A=\frac{1}{1.3}+\frac{1}{2.4}+\frac{1}{3.5}+...+\frac{1}{n.(n+2)}\)
viết chương trình tính tổng A sau đây(n là số tự nhiên được Nhập vào bàn phím)
A=1/1.3+1/2.4+1/3.5+...+1/n(n+2)
giúp e với mai ktra r ạ
sử dụng câu lệnh for do ạ tin học lớp 8 bài caau lệnh cặp
Viết chương trình tính tích các số chẳn và lớn hơn 10 từ 1 đến n. Với n được nhập từ bàn phím, rồi in kết quả ra màn hình
cách 1: sử dụng lệnh for do
cách 2: sử dụng lệnh while do
viết chương trình sử dụng câu lệnh lặp for...do tính S=1+1/2^3+1/3^3+...+1/n^3
câu 1:
a) Hãy mô tả thuật toán để tính tổng sau đây: T=1/1*4 + 1/2*5 + 1/3*6 +...+ 1/n*(n+3)
b) Sử dụng vòng lặp While... do, hãy viết chương trình tổng trên.
