var n,i:integer;
s:real;
begin
readln(n);
if n mod 2 <> 0 then write('So da nhap khong hop le.')
else begin i:=2; s:=0;
while i<=n do
begin s:=s+1/i;
i:=i+2; end;
write(s:2:5); end;
end.
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)}\)
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
Viết chương trình cho phép nhập số tự nhiên N từ bàn phím (với 0<n<=12) rồi thực hiện:
a: Tìm N! = 1.2.3...N
b: tìm S = \(\frac{1}{1!}+\frac{1}{2!}+\frac{1}{3!}+...+\frac{1}{N!}\)
c: T = \(1+\frac{2}{2^2}+\frac{3}{3^2}+\frac{4}{4^2}+...+\frac{1}{n^2}\)
d: S = \(1+\frac{1}{2^2}+\frac{1}{3^3}+\frac{1}{4^4}+...+\frac{1}{n^n}\)
e: \(S_n=\frac{1}{2}+\frac{2}{3}+\frac{3}{4}+\frac{4}{5}+...+\frac{n}{n+1}\)
f: S = \(1+x+\frac{x^2}{2!}+\frac{x^3}{3!}+...+\frac{x^n}{n!}\)
Sử dụng lệnh lặp While do để tính tổng
S=\(\frac{1}{1.2}\)+\(\frac{1}{2.4}\)+\(\frac{1}{36}\)+...+\(\frac{1}{n\left(n+2\right)}\)
Giúp mik với ạ mai mik kt rồi !!!!
viết chuong trình tính tổng các dãy số sau:
S=\(1+\frac{1}{2}+\frac{1}{3}+.....+\frac{1}{100}\)
Hãy mô tả thuật toán để tính tổng sau đây S= 1+\(\frac{1}{2}\)+\(\frac{1}{3}\)+...+\(\frac{1}{100}\)
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.
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 tổng nghịch đảo các số từ 1 đến n , với n là số tự nhiên nhập từ bàn phím :
S=1+\(\frac{1}{2}\)+\(\frac{1}{3}\)+...+\(\frac{1}{n}\)
