uses crt;
var s:real;
i,n:integer;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do
s:=s+(n*(n+1))/((n+2)*(n+3));
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: A= 1-2+3-4+5-...+n-(n+1) với n là số lẻ
Help!!!!!!!!!!!
Viết chương trình tính tổng sau S=1-2+3-4.....-n
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.
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 trương trình tính tổng sau với N nhập số từ bàn phím
T = 1*2/3*4+2*3/4*5+.......+n(n+1)/(n+2)*(n+3)
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
Mô tả thuật toán và viết chương trình tính tổng: S= 2/3+4/5+6/7+...+ 2n/2n+1
