uses crt;
var i,n:integer;
p:real;
begin
clrscr;
write('nhap n='); readln(n);
p:=1;
for i:=1 to n do
p:=p*(1/i);
writeln('tich la: ',p:4:2);
readln;
end.
program tinhtich;
uses crt;
var s:real;
n:integer;
begin
clrscr;
write('nhap n:');readln(n);
s:=1;
for i:=1 to n do
s:=s*(1/i);
writeln('tong s la:',s:4:2);
readln
end.
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 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!}\)
Viết chương trình tính tích:
P=1/1×1/2×1/3×....×1/N
Viết chương trình tính tổng : S1 = 1+3+5+7+...+N S2 = 2+4+6+8+...+N S3 = 1-2+3-4+...+N Viết chương trình tính tích : P1 = 1×3×5×7×...× N P2 = 2×4×6×8×...×N
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 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}\)
Viết chương trình tính S=\(\frac{1}{1.2}+\frac{1}{2.3}+\frac{1}{3.4}+....+\frac{1}{99.100}\)
Viết chương trình tính tích S=1×2×3×4×5...×100
Viết chương trình tính tích s=1/n*...*1/m(m,n là các số nguyên đc nhấn từ bàn phím )
