Câu a:

n = int(input("Nhập số nguyên n: "))

S = 0

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

     S += i

print("Tổng S =", S)

Câu b:

n = int(input("Nhập số nguyên n: "))

S = 0

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

     S += i

print("Tổng S =", S)

Câu c: 

def calc_sum(n):

     s=0

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

          s += 2*i

     return s

n = int(input("Nhập vào số n: "))

print("Tổng S=2+4+6+...2n là:",calc_sum(n))

n = int(input("Nhập số nguyên n: "))

S = 0

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

     S += i

print("Tổng S =", S)

Câu b:

n = int(input("Nhập số nguyên n: "))

S = 0

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

     S += i

print("Tổng S =", S)

Câu c: 

def calc_sum(n):

     s=0

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

          s += 2*i

     return s

n = int(input("Nhập vào số n: "))

print("Tổng S=2+4+6+...2n là:",calc_sum(n))

1/

\(N=1.\left(2-1\right)+2\left(3-1\right)+3\left(4-1\right)+...+99\left(100-1\right)=\)

\(=\left(1.2+2.3+3.4+...+99.100\right)-\left(1+2+3+...+99\right)=\)

Đặt 

\(A=1.2+2.3+3.4+...+99.100\)

\(3A=1.2.3+2.3.3+3.4.3+...+99.100.3=\)

\(=1.2.3+2.3.\left(4-1\right)+3.4.\left(5-2\right)+...+99.100.\left(101-98\right)=\)

\(=1.2.3-1.2.3+2.3.4-2.3.4+3.4.5-...-98.99.100+99.100.101=\)

\(=99.100.101\Rightarrow A=\dfrac{99.100.101}{3}=33.100.101\)

Đặt

\(B=1+2+3+...+99=\dfrac{99.\left(1+99\right)}{2}=4950\)

\(\Rightarrow N=A-B\)

2/

Số hạng cuối cùng là 10000 hoặc 1000000 mới làm được

\(A=1^2+2^2+3^2+...+100^2\) 

Tính như câu 1

3/ Làm như bài 4

4/

\(S=1^2+3^2+5^2+...+99^2=\)

\(=1.\left(3-2\right)+3\left(5-2\right)+5\left(7-2\right)+...+99\left(101-2\right)=\)

\(=\left(1.3+3.5+5.7+...+99.101\right)-2\left(1+3+5+...+99\right)\)

Đặt

\(B=1+3+5+...+99=\dfrac{50.\left(1+99\right)}{2}=2500\) 

Đặt

\(A=1.3+3.5+5.7+...+99.101\)

\(6A=1.3.6+3.5.6+3.7.6+...+99.101.6=\)

\(=1.3.\left(5+1\right)+3.5.\left(7-1\right)+5.7.\left(9-3\right)+...+99.101.\left(103-97\right)=\)

\(=1.3+1.3.5-1.3.5+3.5.7-3.5.7+5.7.9-...-97.99.101+99.101.103=\)

\(=3+99.101.103\Rightarrow A=\dfrac{3+99.101.103}{6}\)

\(\Rightarrow S=A-2B\)

Bài 1:

\(N=1^2+2^2+3^3+...+99^2\)

\(N=1.1+2.2+3.3+...+99.99\)

\(N=1.\left(2-1\right)+2.\left(3-1\right)+3.\left(4-1\right)+...+99.\left(100-1\right)\)

\(N=1.2-1+2.3-2+3.4-3+...+99.100-99\)

\(N=\left(1.2+2.3+3.4+...+99.100\right)-\left(1+2+3+...+99\right)\)

Đặt \(\left\{{}\begin{matrix}A=1.2+2.3+3.4+...+99.100\\B=1+2+3+...+99\end{matrix}\right.\)

+) Tính \(A=1.2+2.3+3.4+...+99.100\)

Ta có:

\(3A=1.2.3+2.3.3+3.4.3+...+99.100.3\)

\(3A=1.2.3+2.3.\left(4-1\right)+3.4.\left(5-2\right)+...+99.100.\left(101-98\right)\)

\(3A=1.2.3+2.3.4-1.2.3+3.4.5-2.3.4+...+99.100.101-98.99.100\)

\(3A=99.100.101\)

\(\Rightarrow A=\dfrac{99.100.101}{3}=333300\)

+) Tính \(B=1+2+3+...+99\)

\(B\) có số số hạng là: \(\dfrac{99-1}{1}\) + 1 = 99 (số hạng)

\(\Rightarrow B=\dfrac{\left(99+1\right).99}{2}=4950\)

\(\Rightarrow N=A-B=333300-4950=328350\)

\(\Rightarrow N=328350\)

xin loi mik danh nham nhe bai do la 10000 nhe

Program HOC24;

var i,n: integer;

S,P: longint;

begin

write('Nhap n: '); readln(n);

{..............................................}

readln

end.

-----------------------------------------------------------

Bạn điền vào {........................} theo từng bài nhé

a) S:=0; 

for i:=1 to N do if i mod 2=1 then s:=s+i;

write('S= ',s);

b)

S:=0;

for i:=1 to N do if i mod 2=0 then s:=s+i;

write('S= ',s);

c) P:=1;

for i:=1 to N do if i mod 2=0 then p:=p*i;

write('P= ',p);

d)

P:=1;

for i:=1 to N do if i mod 2=1 then p:=p*i;

write('P= ',p);

a=5000

1 + 2 + 3 + ... + 100

= (100 + 1).100 : 2

= 101.50

= 5050

a) \(S=1+2+3+4+...+100\)

\(S=\frac{\left(100+1\right)\left[\left(100-1\right):1+1\right]}{2}\)

\(S=5050\)

b) \(S=1+2+3+...+n\)

\(S=\frac{\left(n+1\right)\left[\left(n-1\right):1+1\right]}{2}\)

c) \(A=1+3+5+...+99\)

\(A=\frac{\left(99+1\right)\left[\left(99-1\right):2+1\right]}{2}\)

\(A=2500\)

uses crt;

var s:real;

i,n:integer;

begin

clrscr;

readln(n);

s:=0;

for i:=1 to n do 

  s:=s+(n*(n+1))/((n+2)*(n+3));

writeln(s:4:2);

readln;

end.

Giúp mk với mai mk kiểm tra r

Program HOC24;

var n: integer;

s: real;

begin

n:=1; s:=0;

while s<=3.15 do

begin

s:=s+n;

n:=n+2;

end;

write('S= ',s:5:2);

readln

end.