var i,n:integer;
S:real;
begin
write('nhap n=');readln(n);
S:=0;
for i:=1 to n do if i mod 2 = 1 then S:=S+(1/i-1/(i+1));
writeln('ket qua la:',S);
readln
end.
1/ viết chương trình tính tổng bình phương s= 1² +2²+3²+... + n² với n là số nguyên dương được nhập từ bàn phím 2/ viết chương trình tính tổng của n số lẻ đầu tiên với n là số nguyên dương được nhập từ bàn phím
viết chương trình tính tổng S= 1/3 + 1/5 + 1/7+....+1/(2n+1)
In kết quả ra màn hình. Với n là số nguyên dương được nhập vào từ bàn phím
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.
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:
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 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)\)
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}\)
GIÚP EM MN ƠI, MAI EM NỘP R Ạ T-T.
Xoá sạch màn hình kết quả, sử dụng vòng lặp While . do hoặc For..do viết chương trình tính tổng sau: S=1/1*2+1/2*3+1/3*4+.....+1/n*(n+1)
N nhập từ bàn phím
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!!!!!
