Xét dãy các số nguyên sau: 1;2;4;-1;7;-4;... . Trong đó kể từ số hạng thứ tư trở đi, mỗi số hạng sẽ được tính theo ba số hạng liền trước nó như sau: tổng của số hạng thứ nhất và thứ hai trừ đi số hạng thứ ba. Hãy tính số hạng thứ 2015 của dãy trên.
Những câu hỏi liên quan
Xét dãy các số nguyên sau 1 2 4 1 7 4 ... . Trong đó kể từ số hạng thứ tư trở đi, mỗi số hạng sẽ được tính theo ba số hạng liền trước nó như sau tổng của số hạng thứ nhất và thứ hai trừ đi số hạng thứ ba. Hãy tính số hạng thứ 2015 của dãy trên.
xét dãy số A các thừa số nguyên tố 2,2,3,5,7,11,13,17,19,...và dãy B gồm các số thu được từ dãy A bằng cách ghép 2 số liên tiếp trong dãy A. Vd:23,57,1113,1719,...Trong dãy B có những phần tử là số nguyên tố, chẳng hạn:25,3127,8389,157163,.....Các số nguyên tố trong dãy B gọi là số nguyên tố ghép.Yêu cầu:cho trước 1 số nguyên tố k(k500).Hãy tìm số nguyên tố ghép thứ k(pascal) (làm ơn giúp minh cần nó trước ngày 29/1) :((( (làm bằng array nếu có thể)CẢM ƠN
Đọc tiếp
xét dãy số A các thừa số nguyên tố 2,2,3,5,7,11,13,17,19,...và dãy B gồm các số thu được từ dãy A bằng cách ghép 2 số liên tiếp trong dãy A. Vd:23,57,1113,1719,...Trong dãy B có những phần tử là số nguyên tố, chẳng hạn:25,3127,8389,157163,.....Các số nguyên tố trong dãy B gọi là số nguyên tố ghép.Yêu cầu:cho trước 1 số nguyên tố k(k<=500).Hãy tìm số nguyên tố ghép thứ k
(pascal) (làm ơn giúp minh cần nó trước ngày 29/1) :((( (làm bằng array nếu có thể)
CẢM ƠN
uses crt;
var d,n,k,kt1,i,j,x,kt2,u,kt:longint;
st1,st2,st:string;
y:integer;
begin
clrscr;
write('nhap so k='); readln(k);
if k>1 then begin
d:=1;
n:=3;
repeat
repeat
kt:=0;
n:=n+2;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=1;
if kt=0 then str(n,st1);
until kt=0;
{----------------------------------------}
repeat
kt:=0;
n:=n+2;
for j:=2 to trunc(sqrt(n)) do
if n mod j=0 then kt:=1;
if kt=0 then str(n,st2);
until kt=0;
{----------------------------------------}
kt:=0;
st:=st1+st2;
val(st,x,y);
for i:=2 to trunc(sqrt(x)) do
if x mod i=0 then kt:=1;
if kt=0 then d:=d+1;
until d=k;
end;
if k=1 then write('so nguyen to ghep thu ',k,' la 23')
else writeln('so nguyen to ghep thu ',k,' la: ',x);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình pascal nhập dãy số n (n nhập từ bàn phím) thực hiện+ dòng 1 xuất ra màn hình dãy số vừa nhập+ dòng 2 tổng của dãy số vừa nhập và xét tổng đó có phải là số nguyên tố không ?+ dòng 3 các số ở vị trí lẻ của dãy số và tổng của nó. Xét tổng đó có phải là số chính phương không?+ dòng 4 các số ở vị trí chẵn của dãy số và tổng của chúng. Xét tổng đó có phải là số hoàn hảo không ?+ dòng 5 số lớn nhất và số nhỏ nhất của dãy số và tổng của hai số đó Giúp với !!
Đọc tiếp
Viết chương trình pascal nhập dãy số n (n nhập từ bàn phím) thực hiện
+ dòng 1 xuất ra màn hình dãy số vừa nhập
+ dòng 2 tổng của dãy số vừa nhập và xét tổng đó có phải là số nguyên tố không ?
+ dòng 3 các số ở vị trí lẻ của dãy số và tổng của nó. Xét tổng đó có phải là số chính phương không?
+ dòng 4 các số ở vị trí chẵn của dãy số và tổng của chúng. Xét tổng đó có phải là số hoàn hảo không ?
+ dòng 5 số lớn nhất và số nhỏ nhất của dãy số và tổng của hai số đó Giúp với !!
uses crt;
var a:array[1..100]of integer;
i,n,t,t1,t2,t3,min,max:integer;
kt:boolean;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Day so ban vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
t:=t+a[i];
kt:=true;
for i:=2 to trunc(sqrt(t)) do
if t mod i=0 then
begin
kt:=false;
break;
end;
writeln('Tong cua day so la: ',t);
if (kt=true) and (t>1) then writeln(t,' la so nguyen to')
else writeln(t,' khong la so nguyen to');
writeln('Cac so o vi tri le cua day so la: ');
t1:=0;
for i:=1 to n do
if i mod 2=1 then
begin
write(a[i]:4);
t1:=t1+a[i];
end;
writeln;
writeln('Tong cac so o vi tri le cua day so la: ',t1);
if trunc(sqrt(t1))=sqrt(t1) then writeln(t1,' la so chinh phuong')
else writeln(t1,' khong la so chinh phuong');
writeln('Cac so o vi tri chan cua day so la: ');
t2:=0;
for i:=1 to n do
if i mod 2=0 then
begin
write(a[i]:4);
t2:=t2+a[i];
end;
writeln;
writeln('Tong cac so o vi tri chan cua day so la: ',t2);
t3:=0;
for i:=1 to t2 do
if t2 mod i=0 then t3:=t3+i;
if t3=t2 then writeln(t2,' la so hoan hao')
else writeln(t2,' khong la so hoan hao');
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('So lon nhat cua day la: ',max);
writeln('So nho nhat cua day la: ',min);
writeln('Tong cua so lon nhat va so nho nhat la: ',max+min);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình pascal nhập dãy số n (n nhập từ bàn phím) thực hiện
+ dòng 1 xuất ra màn hình dãy số vừa nhập
+ dòng 2 tổng của dãy số vừa nhập và xét tổng đó có phải là số nguyên tố không ?
+ dòng 3 các số ở vị trí lẻ của dãy số và tổng của nó. Xét tổng đó có phải là số chính phương không?
+ dòng 4 các số ở vị trí chẵn của dãy số và tổng của chúng. Xét tổng đó có phải là số hoàn hảo không ?
+ dòng 5 số lớn nhất và số nhỏ nhất của dãy số và tổng của hai số đó
Giúp với !!
Đọc tiếp
Viết chương trình pascal nhập dãy số n (n nhập từ bàn phím) thực hiện
+ dòng 1 xuất ra màn hình dãy số vừa nhập
+ dòng 2 tổng của dãy số vừa nhập và xét tổng đó có phải là số nguyên tố không ?
+ dòng 3 các số ở vị trí lẻ của dãy số và tổng của nó. Xét tổng đó có phải là số chính phương không?
+ dòng 4 các số ở vị trí chẵn của dãy số và tổng của chúng. Xét tổng đó có phải là số hoàn hảo không ?
+ dòng 5 số lớn nhất và số nhỏ nhất của dãy số và tổng của hai số đó
Giúp với !!
uses crt;
var a:array[1..100]of integer;
n,i,t,kt,j,t1,t2,t3,max,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Day so ban vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cua day so vua nhap la: ',t);
kt:=0;
for i:=2 to trunc(sqrt(t)) do
if t mod i=0 then
begin
kt:=1;
break;
end;
if (kt=0) and (t>1) then writeln(t,' la so nguyen to');
else writeln(t,' khong la so nguyen to');
t1:=0;
writeln('Cac so o vi tri le cua day la: ');
for i:=1 to n do
if i mod 2=1 then
begin
write(a[i]:4);
t1:=t1+a[i];
end;
writeln;
writeln('Tong cac so o vi tri le la: ',t1);
if trunc(sqrt(t1))=sqrt(t1) then writeln(t1,' la so chinh phuong')
else writeln(t1,' khong la so chinh phuong');
t2:=0;
writeln('Cac so o vi tri chan la: ');
for i:=1 to n do
if i mod 2=0 then
begin
write(a[i]:4);
t2:=t2+a[i];
end;
writeln;
writeln('Tong cac so o vi tri chan la: ',t2);
t3:=0;
for i:=1 to t2 do
if t2 mod i=0 then t3:=t3+i;
if t3=t2 then writeln(t2,' la so hoan hao')
else writeln(t2,' khong la so hoan hao');
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('Gia tri lon nhat la: ',max);
writeln('Gia tri nho nhat la: ',min);
writeln('Tong cua hai so lon nhat va nho nhat la: ',max+min);
readln;
end.
Đúng 1
Bình luận (1)
Xét các dãy số sau :
a) Dãy số tự nhiên : 0, 1, 2 , 3 , ....
b) Dãy số lẻ : 1, 3, 5, 7, ....
c) Dãy các số chia hết cho 3 dư 1 : 1, 4, 7, 10....
a) Dãy số tự nhiên : 0, 1, 2 , 3 , .... là \(A=\left\{x|x\in N\right\}\)
b) Dãy số lẻ : 1, 3, 5, 7, .... là \(B=\left\{2x+1|x\in N\right\}\)
c) Dãy các số chia hết cho 3 dư 1 : 1, 4, 7, 10..... là \(C=\left\{3x+1|x\in N\right\}\)
Viết chương trình nhập 1 số nguyên có n phần tử. Sau đó xét xem dãy số đó có bao nhiêu giá trị khác nhau
program Hoc;
var
n, i, j, dem: integer;
a: array[1..100] of integer;
begin
clrscr;
writeln('Nhap vao so phan tu trong day: ');
readln(n);
writeln('Nhap cac phan tu cua day: ');
for i:=1 to n do
begin
readln(a[i]);
end;
dem:=0;
for i:=1 to n do
begin
for j:=1 to i-1 do
begin
if(a[i] = a[j]) then
begin
break;
end;
end;
if(j = i-1) then
begin
dem:= dem+1;
end;
end;
writeln('So gia tri khac nhau trong day la: ', dem);
readln;
end.
Đúng 1
Bình luận (0)
Xét các số nguyên dương chia hết cho 3. Tổng số 50 số nguyên dương đầu tiên của dãy số đó bằng
A. 3675
B. 3750
C. 3825
D. 3900
Số các số nguyên dương thỏa mãn bài toán lập thành một cấp số cộng với số hạng đầu u 1 = 3 và công sai d = 3
Do đó 
Chọn C.
Đúng 0
Bình luận (0)
Xét tính bị chặn của các dãy số sau: u n = 3 n - 1
A. Bị chặn
B. Không bị chặn
C. Bị chặn trên
D. Bị chặn dưới
Xét tính bị chặn của các dãy số sau:
u
n
(
-
1
)
n
A. Bị chặn B. Không bị chặn C. Bị chặn trên D. Bị chặn dưới
Đọc tiếp
Xét tính bị chặn của các dãy số sau: u n = ( - 1 ) n
A. Bị chặn
B. Không bị chặn
C. Bị chặn trên
D. Bị chặn dưới
Trong đội tuyển Toán của Trường có bạn Minh rất thông minh , bạn đã xây dựng một dãy vô số hạn A từ các dãy số nguyên dương bằng cách lần lượt xét các số tự nhiên bắt đầu từ 1 và lần lượt chọn các số cho dãy A theo quy tắc : chọn một số chia hết cho 1 ( hiển nhiên là số 1), sau đó hai số chia hết cho 2 , tiếp theo là 3 số chia hết cho 3, 4 số chia hết cho 4 , 5 số chia hết cho 5 ... Như vậy các số đầu tiên của dãy A là : 1,2,4,6,9,12,16,20,24,28,30,35,40,45,50,... Bạn Minh đã tìm ra quy luật xác...
Đọc tiếp
Trong đội tuyển Toán của Trường có bạn Minh rất thông minh , bạn đã xây dựng một dãy vô số hạn A từ các dãy số nguyên dương bằng cách lần lượt xét các số tự nhiên bắt đầu từ 1 và lần lượt chọn các số cho dãy A theo quy tắc : chọn một số chia hết cho 1 ( hiển nhiên là số 1), sau đó hai số chia hết cho 2 , tiếp theo là 3 số chia hết cho 3, 4 số chia hết cho 4 , 5 số chia hết cho 5 ... Như vậy các số đầu tiên của dãy A là : 1,2,4,6,9,12,16,20,24,28,30,35,40,45,50,... Bạn Minh đã tìm ra quy luật xác định một cách nhanh chóng các phần tử của dãy. Bạn là một người lập trình giỏi , hãy giúp các bạn đội tuyển Toán viết chương trình kiểm tra quy luật mà bạn Minh tìm ra đúng hay không. Yêu cầu : Cho số tự nhiên N. Xác định số thứ N của dãy số. Ví dụ: Input: 10 Output: 28 Làm bằng C++ Mng giúp em với em đag cần rất gấp ạ _(|)_
#include <iostream>
using namespace std;
// Hàm tính số thứ N của dãy số
int soThuN(int N) {
// Tìm số nguyên tố nhỏ nhất lớn hơn hoặc bằng N
int p = 2;
while (p * p <= N) {
p++;
}
// Tính số phần tử của dãy số nhỏ hơn hoặc bằng N
int n = 0;
for (int i = 1; i <= p; i++) {
n += (N / i) + 1;
}
// Tính số thứ N của dãy số
int x = 1;
for (int i = 1; i <= n; i++) {
x += (i - 1) * p;
}
return x;
}
int main() {
int N;
cin >> N;
// In ra số thứ N của dãy số
cout << soThuN(N) << endl;
return 0;
}
Đúng 1
Bình luận (0)