Viết chương trình tính:
S= 1/1.2+1/2.3+...+1/n (n+1).
Những câu hỏi liên quan
Dùng ngôn ngữ lập phương trình Python, viết chương trình theo yêu cầu sau:
Tính S=1.2+2.3+3.4+....+n(n+1)(n nhập từ bàn phím)
n=int(input('n='))
S=0
for i in range (1,n+1):
S+=i*(i+1)
print('Tổng S là:',S)
Đúng 2
Bình luận (0)
Xoá sạch màn hình kết quả, sử dụng vòng lặp For .. do hoặc While ..do viết chương trình tính tổng sau:
S=1.2 + 2.3+ 3.4 + ...+ n.(n+1) (n nhập từ bàn phím)
For..do
Program HOC24;
uses crt;
var i,n: integer;
S: longint;
begin
clrscr;
write('Nhap N: '); readln(n);
s:=0;
for i:=1 to n do s:=s+i*(i+1);
write('S=',S);
readln
end.
Đúng 3
Bình luận (0)
while..do
Program HOC24;
uses crt;
var i,n: integer;
S: longint;
begin
clrscr;
write('Nhap N: '); readln(n);
i:=0; s:=0;
while i<n do
begin
i:=i+1;
s:=s+i*(i+1);
end;
write('S=',S);
readln
end.
Đúng 1
Bình luận (0)
Viết chương trình tính tổng sau? Với n được nhập vào từ bàn phím?
S = 1.2 + 2.3 + 3.4 + .... + n.(n+1)
uses crt;
var s,i,n:longint;
begin
clrscr;
write('n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+i*(i+1);
writeln(s);
readln;
end.
Tính tổng
S=1.2+2.3+3.4+4.5+...+99.100
S=1.2+2.3+...+(n-1).n. (n thuộc N sao)
Ta có : S = 1.2 + 2.3 + 3.4 + ..... + 99.100
=> 3S = 1.2.3 - 1.2.3 + 2.3.4 - 2.3.4 + .... + 99.100.101
=> 3S = 99.100.101
=> S = \(\frac{99.100.101}{3}=333300\)
Đúng 0
Bình luận (0)
ta xét
\(S\left(n\right)=1.2+2.3+..+n\left(n-1\right)\)
\(\Rightarrow3S\left(n\right)=1.2.3+2.3.3+..+3.n.\left(n-1\right)\)
\(\Leftrightarrow3S\left(n\right)=1.2.3+2.3.\left(4-1\right)+3.4.\left(5-2\right)+..+n\left(n-1\right)\left(n+1-\left(n-2\right)\right)\)
\(\Leftrightarrow3S\left(n\right)=1.2.3+2.3.4-1.2.3+3.4.5-2.3.4+..+n\left(n-1\right)\left(n+1\right)-n\left(n-1\right)\left(n-2\right)\)
\(\Leftrightarrow3S\left(n\right)=n\left(n-1\right)\left(n+1\right)\Rightarrow S\left(n\right)=\frac{n\left(n-1\right)\left(n+1\right)}{3}\)
Áp dụng ta có \(S\left(100\right)=\frac{99.100.101}{3}=333300\)
Câu 1: Viết chương trình tính tổng và in ra kết quả của tổng đó (với n là một số nguyên được nhập từ bàn phím):
S= 1/2+1/3+1/4+ ... + 1/n+1
Câu 2: Viết chương trình tính tổng và in ra kết quả của tổng đó:
A=1/1.2 + 1/2.3 + 1/3.4 + ... + 1/n(n+1)
câu2
var n,i:integer;
s:real;
begin
write('n=');readln(n);
s:=0;
for i:=1 to n do s:=s+(1/(i*(i+1))); writeln(' Tong la: ',s); readln; end.
Đúng 0
Bình luận (0)
Câu 1:
Program HOC24 ;
var i,n : integer ;
s: real;
begin
write('nhap gia tri n:'); readln(n);
S:=0;
for i:= 1 to n do
S:= S+1/(i+1) ;
write('S= ',S:6:2);
readln
end.
Đúng 0
Bình luận (1)
Dùng ngôn ngữ lập phương trình Pascal, viết chương trình theo yêu cầu sau:
Tính S=1.2+2.3+3.4+....+n(n+1)(n nhập từ bàn phím)
Lời giải :
program hotrotinhoc ;
var S,n,i : integer ;
begin
write('Nhap n='); readln(n);
for i:= 1 to n do S:=S+i*(i+1) ;
write('S=',S);
readln
end.
Đúng 0
Bình luận (0)
Var n,S,i:longint;
Begin
write('nhap n:'); readln(n);
S:=0;
For i:=1 to n do S:=S+n*(n+1);
writeln(S);
Readln
End.
tính tổng S= (1.2)² + (2.3)² + (3.4)² + … + [n(n + 1)]²
Viết chương trình tính tổng sau:S 1 + 1.2 + 1.2.3 + 1.2.3.4 + …+ 1.2…N Với N là số nguyên nhập vào từ bàn phímgiúp mình với ạ, mình đang cần gấp
Đọc tiếp
Viết chương trình tính tổng sau:
S = 1 + 1.2 + 1.2.3 + 1.2.3.4 + …+ 1.2…N Với N là số nguyên nhập vào từ bàn phím
giúp mình với ạ, mình đang cần gấp
program TinhTong;
uses crt;
var
N, i, j, tich: integer;
S: real;
begin
clrscr;
write('Nhap so nguyen N: ');
readln(N);
S := 0;
tich := 1;
for i := 1 to N do
begin
tich := tich * i;
S := S + tich;
end;
writeln('Tong S = ', S:0:2);
readln;
end.
Đúng 1
Bình luận (4)
Viết chương trình tính S=\(\frac{1}{1.2}+\frac{1}{2.3}+\frac{1}{3.4}+....+\frac{1}{99.100}\)
program Tinh_tong;
uses crt;
var S, i: longint;
begin
clrscr;
S:= 0;
i:=1;
For i:=1 to 99 do S:= S + 1/[i*(i+1)];
writeln('Tong cua S=', S);
Readln
End.
Đúng 0
Bình luận (0)
program Tinh_tong;
uses crt;
var S,i,n:longint;
begin
clrscr;
writeln('hay nhap n',); Readln(n);
S:=0;
i:=1;
For i:=\(\frac{1}{1.3}\)to\(\frac{1}{99.100}\) do \(S:=S+\frac{1}{99.100}\);
i:=i+1;
IF i<=n THEN writeln('Tong cua S=',A);
Readln
End.
Đúng 0
Bình luận (0)
var
S: real;
i: integer;
Begin
S:=0;
i:=i*(i+1);
for i:=1 to 99 do S:=S+1/i;
writeln('tong la=', S);
readln
end.
Đúng 0
Bình luận (0)