var n,x,i,j,lt,gt:longint;
s:real;
begin
readln(x);
readln(n);
s:=x+1;
for i:=2 to n do
begin
lt:=1;
gt:=1;
for j:=1 to i do
begin
lt:=lt*x;
gt:=gt*i;
end;
s:=s+lt/gt;
end;
write(s);
readln;
end.
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 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=\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 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:
a.\(\text{ }\text{ }1+\dfrac{1}{2!}+\dfrac{1}{3!}+...+\dfrac{1}{n!}.\)
b. \(1+\dfrac{1}{2^2}+\dfrac{1}{3^2}+...+\dfrac{1}{n^2}.\)
c. \(3+\dfrac{4}{3}+1+...+\dfrac{n+2}{2n-1}.\)
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
program Tinh_tong;
uses crt;
var i, n, s: integer;
begin clrscr;
writeln('Chuong trinh tinh tong S = 1 + 2 + ... + n');
write('Nhap so n: ');read(n); s:=0;
for i := 1 to n do s := s + i;
writeln('Tong cua ',n,' so tu nhien dau tien s = ',s);
readln;
readln;
end.
* Dựa vào vòng lặp for viết chương trình tính tổng n số tự nhiên bằng vòng lặp while
Mọi người ơi mình đang cần gắp ạ !
Đề bài đây
S = 1 +\(\dfrac{1}{2.3}\) + \(\dfrac{2}{3.4}\)+ ...+ \(\dfrac{n}{\left(n+1\right)-\left(n+2\right)}\)
CẢM ƠN MN TRƯỚC
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)\)
