a.
program caua;
uses crt;
var x,i, n: integer;
A: real;
begin
clrscr;
write('Nhap so n, n = '); read(n);
A:=0; x:=1;
for i:=1 to n do
begin
i:=x*i; A:=1/i;
end;
write("Gia tri bieu thuc dau tien la',A);
readln
end.
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 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 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 tổng s=1+\(\dfrac{1}{1}+\dfrac{1}{2}+\dfrac{1}{3}+.....+\dfrac{1}{N}+\dfrac{1}{N+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 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)\)
VTC nhập 1 số thực a từ bàn phím và tìm 1 stn n nhỏ nhất sao cho \(1+\dfrac{1}{2}+\dfrac{1}{3}+...+\dfrac{1}{n}>a\)
viết chương trình
A=1+\(\dfrac{1}{4.5}\)+ ...... + \(\dfrac{1}{n^2\left(n^2+1\right)}\)
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)}\)
