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.
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.
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.
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.
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.
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\}\)
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.
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.
#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;
}