Viết chương trình tính:
S= 1/1.2+1/2.3+...+1/n (n+1).
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
LD
Luân Đào
16 tháng 2 2019
program help;
uses crt;
var i, n: integer;
A: real;
begin
clrscr;
write('Nhap so n vao: n = '); read(n);
A:=0;
for i:=1 to n do
A:=A+1/(i*(i+1));
writeln('Tong A thu duoc la ',A);
readln
end.
Đúng(0)
Những câu hỏi liên quan
ML
7 tháng 3 2023
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.
11 tháng 3 2020
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.
AA
2
PL
8 tháng 9 2018
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\)
NM
Nguyễn Minh Quang
Giáo viên
11 tháng 2 2021
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\)
S
18 tháng 3 2019
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.
ML
11 tháng 4 2019
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.
2 tháng 3 2020
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.
NB
3 tháng 5 2023
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.
HN
9 tháng 2 2017
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.
9 tháng 2 2017
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.