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.

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.
9 tháng 5 2023

n=int(input('n='))

S=0

for i in range (1,n+1):

       S+=i*(i+1)

print('Tổng S là:',S)

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.

7 tháng 3 2023

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.

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.

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
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\)

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.
27 tháng 5 2023

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.

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.

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.

 

3 tháng 5 2023

tôi chạy nó ra thế này bạn ơi

 

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.