viết chương trình tính s=a+(1-2)+(a-2+3)+(1-2+3-4+...n)
Viết chương trình tính các tổng sau: a) S=1+2+3+4+...+n b) S=1+3+5+...+n-1 c) S=2+4+6+...2n
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. Viết chương trình tính tích N=1*2*3*...*n (với n được nhập từ bàn phím)
2. Viết chương trình tính tổng A=1/1*3+1/2*4+1/3*5+...+1/n*(n+2)
3. Viết chương trình tính tổng số lẻ có trong dãy từ 0->n (n được nhập từ bàn phím)
4. Viết chương trình in ra màn hình các số chẵn có trong dãy từ 0->n (n được nhập từ bàn phím) và đếm có bao nhiêu số.
5. Viết chương trình in ra màn hình các số lẻ có trong dãy số từ 0->n (n được nhập từ bàn phím) và đếm có bao nhiêu số.
6. Viết chương trình nhập số nguyên n. Tìm và đưa ra màn hình các ước của n.
7. Viết chương trình in ra màn hình các bội của n ( n được nhập từ bàn phím)
8. Viết chương trình tính tổng S=1/1+1/2+1/3+...+1/n (n được nhập từ bàn phím)
Câu 6:
uses crt;
var n,i:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
if n mod i=0 then write(i:4);
readln;
end.
5:
uses crt;
var n,i,dem:integer;
begin
clrscr;
readln(n);
dem:=0;
for i:=0 to n do
if i mod 2=1 then
begin
write(i:4);
dem:=dem+1;
end;
writeln;
writeln(dem);
readln;
end.
a, Sử dụng NNLT Python để viết chương trình tính tổng s=2+4+6+…+n, với n nhập từ bàn phím.
b, Sử dụng NNLT Python để viết chương trình tính tổng s=1+3+5+…+n, với n nhập từ bàn phím.
viết chương trình tính tổng
s= 1*2/3*4+2*3/4*5+3*4/5*6+...+n*(n+1)/(n+2)*(n+3)
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.
1. Viết chương trình tính tổng sau:
a) S = \(1+\dfrac{1}{2}+\dfrac{1}{3}+...+\dfrac{1}{n}\)
b) S = \(1+\dfrac{1}{3}+\dfrac{1}{5}+...+\dfrac{1}{n}\)
2. Viết chương trình nhập 2 số nguyên a và b. Tìm bội chung nhỏ nhất
3. Cho một dãy số gồm N phân tử:
- Tính tổng các phân tử trong dãy số
- Tìm phân tử lớn nhất
- In ra màn hình các số nguyên tố có trong dãy
BÀI 3
uses crt;
var a: array[1..100] of integer;
i,n,max,s,j: integer;
begin
clrscr;
writeln(' nhap so phan tu cua day'); readln(n);
for i:=1 to n do
begin
writeln('a[',i,']'); readln(a[i]);
end;
max:=a[1];
s:=0;
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
s:=s+a[i];
end;
writeln('so lon nhat trong day tren la:',max);
writeln('tong bang:',s);
writeln('so nguyen to trong mang la:');
j:=1;
for i:=1 to n do
if a[i]>1 then
begin
repeat
inc(j);
until (a[i] mod j=0);
if j>(a[i] div 2) then writeln(a[i]);
j:=1;
end;
readln
end.
Viết chương trình tính tổng A/ S= 1+1+1+1+1 B/ S = 1+2+3+4+5
b: uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 5 do
s:=s+i;
writeln(s);
readln;
end.
Viết chương trình tính biểu thức sau :
a) S=1+2+3+...+n với (n từ 30-90)
b) Tìm n để S >1000 với S = 1+2+3+...n
a)
program Tinh_S;
var
n, S: integer;
i: integer;
begin
write('Nhap gia tri cua n (30 <= n <= 90): ');
readln(n);
S := 0;
if (n >= 30) and (n <= 90) then
begin
for i := 1 to n do
S := S + i;
writeln('Gia tri cua bieu thuc S la: ', S);
end
else
writeln('Gia tri cua n khong hop le!');
readln;
end.
b)
program Tim_n;
var
n, S: integer;
begin
for n := 30 to 90 do
begin
S := 0;
for i := 1 to n do
S := S + i;
if S > 1000 then
begin
writeln('Gia tri cua n la: ', n);
break;
end;
end;
readln;
end.
a)program Tinh_S;
var n,s,i:longint;
begin
s := 0;
write('Nhap n (30 <= n <= 90): ');
readln(n);
for i := 1 to n do
begin
s := s + i;
end;
writeln('Tong S la: ', s);
end.
b) program Tim_N;
var n,s,i: longint;
begin
s := 0;
n := 1;
while s <= 1000 do
begin
s := s + n;
n := n + 1;
end;
writeln('Gia tri n can tim la: ', n-1);
end.
Viết chương trình tính \(S=1+\dfrac{1}{2}+\dfrac{1}{3}+\dfrac{1}{4}+...+\dfrac{1}{n}+...\)cho đến khi S>a với a là một số cho trước ,n là một số nguyên dương
Viết chương trình tính tổng sau S=1-2+3-4.....-n
Viết thân thôi hen
Var n,i,s:integer;
Read(n);
s:=0;
For i:=1 to n do
If i mod 2 <>0 then s:=s+i else s:=s-i;
Write(s);
end.