Program HOC24;
var s: longint;
i,n: integer;
begin
write('Nhap n: '); readln(n);
s:=1;
for i:=1 to n do s:=s*i;
write('S = ',s);
readln
end.
Program HOC24;
var s: longint;
i,n: integer;
begin
write('Nhap n: '); readln(n);
s:=1;
for i:=1 to n do s:=s*i;
write('S = ',s);
readln
end.
Viết chương trình tính tổng:
S = 1 + 1/2! + 1/3! + … + 1/n! với n là số tự nhiên được nhập vào từ bàn phím.
Viết chương trình tính tích của N số tự nhiên đầu tiên, với N là số tự nhiên được nhập vào từ bàn phím.
2: Viết chương trình sử dụng lệnh lặp để tính trung bình cộng của N số thực. Với số N và các số tính trung bình cộng được nhập vào từ bàn phím. Câu 3: Viết chương trình nhận biết một số tự nhiên N được nhập từ bàn phím có phải là số nguyên tố hay không.
1. Viết chương trình tính tích N=1*2*3*...*n (với n được nhập từ bàn phím)
2. Viết chương trình tính tổng A=1/1*3+1/2*4+1/3*5+...+1/n*(n+2)
3. Viết chương trình tính tổng số lẻ có trong dãy từ 0->n (n được nhập từ bàn phím)
4. Viết chương trình in ra màn hình các số chẵn có trong dãy từ 0->n (n được nhập từ bàn phím) và đếm có bao nhiêu số.
5. Viết chương trình in ra màn hình các số lẻ có trong dãy số từ 0->n (n được nhập từ bàn phím) và đếm có bao nhiêu số.
6. Viết chương trình nhập số nguyên n. Tìm và đưa ra màn hình các ước của n.
7. Viết chương trình in ra màn hình các bội của n ( n được nhập từ bàn phím)
8. Viết chương trình tính tổng S=1/1+1/2+1/3+...+1/n (n được nhập từ bàn phím)
viết chương trình tính n! (n giai thừa: tích của n số tự nhiên đầu tiên ), với n được nhập từ bàn phím
Viết chương trình tính tổng của N số tự đầu tiên với N là số tự nhiên được nhập vào từ bàn phím
Viết chương trình tính tổng nghịch đảo N số tự nhiên S= 1+1/2+1/3+...+1/N với N được nhập từ bàn phím. (sử dụng câu lệnh lặp for...do hoặc while...do...). Giúp e với ạ
Viết chương trình tính tổng
S=1+1/2+1/3+....+1/n
Với n là số nguyên được nhập từ bàn phím.