uses crt;
var s:real;
i,n:longint;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+1/(i*(i+2));
writeln(s:4:2);
readln;
end.
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
viết chương trình tính tổng
s= 1*2/3*4+2*3/4*5+3*4/5*6+...+n*(n+1)/(n+2)*(n+3)
Viết chương trình tính tổng: A= 1-2+3-4+5-...+n-(n+1) với n là số lẻ
Help!!!!!!!!!!!
em hãy viết chương trình để tính tổng A sau đây( n là số tự nhiên được nhập vào từ bàn phím) A=1/1*3+1/2*4+1/3*5+.......+1/n*(n+2)
help me vs!!!!!
viết chương trình tính các biểu thức sau P=(1+1/2+1/3+1/4+....+1/n) + ( 3*n) tin 8
1 Viết chương trình tính n!=1.2.3.4....n vs n là số nguyên được nhập vào từ bàn phím.
2 Viết chương trình tính t=1+2+3+4+....+n vs n là số nguyên được nhập vào từ bàn phím.
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.
Viết chương trình nhập số N sau đó tính các tổng sau
S1=1 + 2 + 3 +.....+ N
S2=1 +1/2+1/3+.....+1/N
S3=1 +2 2 +3 3 +... +N N
S4=1*2*3...*N
S5= 1 + 1/2! + 1/3! + ..... + 1/N!
S6= 1/(1*2) + 1/(2*3) + 1/(3*4) + ..... + 1/(N*(N+1))
Các bạn giải giúp mình. Mình cảm ơn
Viết chương trình Pascal tính các tống sau:
1. S = 1-2+3-4+...+n
2. S = 1+2-3+4-5+...+n
3. S = 1+1/2-1/3+...+1/n
