trong các dãy số -2; -1/2; 1;2 thì số không là tập nghiệm của đa thức P(x)=x^3-x^2-4x+4 là:
A -2 B-1/2 C 1 D 2
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.
Nhập vào mảng A gồm n số nguyên (n<=1000), nhập vào số nguyên K. Tínhtổng các số trong dãy là bội của K.Ví dụ, với n=5, các số trong dãy là 7 8 4 2 10Với k=2, tổng các số trong dãy là bội của 2 là S=8+4+2+10=24.
uses crt;
var a:array[1..1000]of integer;
i,n,k,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap k='); readln(k);
t:=0;
for i:=1 to n do
if a[i] mod k=0 then t:=t+a[i];
writeln('Tong cac so la boi cua ',k,' la: ',t);
readln;
end.
Một dãy số tự nhiên được gọi là dãy tăng bội 3 nếu dãy chỉ gồm một số và số đó chia hết cho 3, hoặc dãy gồm các số khác nhau theo thứ tự tăng dần và tổng của các số trong dãy chia hết cho 3.
Ví dụ, dãy số: 6 và dãy số: 2, 3, 4 là các dãy tăng bội 3; còn các dãy số: 2, 3, 5, dãy số: 2, 4, 3 và dãy số: 3, 3 không phải là dãy tăng bội 3.
1. Kiểm tra xem dãy số nào dưới đây là dãy tăng bội 3? Vì sao?
a) Dãy số: 3
b) Dãy số: 3, 5
c) Dãy số: 3, 5, 10
d) Dãy số: 12, 9, 6, 3
e) Dãy số: 3, 6, 9, 12, 15, 18, 21, 24, 27, 30, 33, 36, 39, 42, 45, 48, 51, 54, 57, 60
2. Hãy tìm tất cả các dãy tăng bội 3 được thành lập bằng cách lấy ra một số tùy ý các số trong 5 số: 3, 5, 6, 9 và 10. Viết các dãy tăng bội 3 tìm được, mỗi dãy trên một dòng, các số trong dãy cách nhau một dấu phẩy.
a) dãy số: 3 là dãy số tăng bội 3
b) dãy số: 3, 5 Không phải là dãy số tăng bội 3
b) dãy số: 3, 5, 10 là dãy số tăng bội 3
d) dãy số: 12, 9, 6, 3 Không phải là dãy số tăng bội 3
e) dãy số: 3, 6, 9, 12, 15, 18, 21, 24, 27, 30, 33, 36, 39, 42, 45, 48, 51, 54, 57, 60 là dãy số tăng bội 3
1. Nhập vào 1 dãy số thực có 20 phần tử.
a)Tìm phần tử đầu tiên trong dãy có giá trị bằng x (x nhập từ bàn phím)
b)Tính tổng các số dương trong dãy
c)Tính Tb(+) các số âm trong dãy
2. Nhập dãy số nguyên có n phần tử (n nhập)
a) Hiển thị ra màn hình các phần tử chia hết cho 3
b) Tìm trong dãy tất cả các bộ gồm 3 số dương vị trí liền kề nhau và có tổng chia hết cho 5
3. Nhập 1 xâu ký tự bàn phím:
a) Đếm số lượng chữ in hoa, chữ cái thường trong xâu
b) Xóa bỏ các ký tự trắng thứ a trong xâu
c) Đếm số từ trong sâu
d) Đổi sang chữ hoa hay các kí tự là chữ thường
MỌI NGƯỜI GIÚP EM TRẢ LỜI CÁC CÂU HỎI TRÊN VỚI Ạ! TKS
Mỗi số trong dãy 21 , 22 , …,22017 đều được thay thế bằng tổng các chữ số của nó. Tiếp tục làm như vậy với các số nhận được cho tới khi tất cả các số trong dãy đều có 1 chữ số. Chứng minh rằng: trong dãy số này số các số 2 nhiều hơn các số khác 1 số.
Bạn ơi giúp mình với chiều nay mình thi rồi
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,tb:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
tb:=0;
for i:=1 to n do
tb:=tb+a[i];
writeln(tb/n:4:2);
readln;
end.
Dãy S1 gồm các số tự nhiên lẻ; Dãy S2 gồm các số gấp đôi các số của dãy S1. Cứ như vậy, dãy sau gồm các số gấp đôi các số của dãy trước nó. (Chú ý có vô số dãy và ở trên chỉ liệt kê bốn dãy đầu tiên.)
Bạn hãy cho biết: trong các dãy số S1 , S2 , ... những dãy số nào chứa số 1000
trên bảng cho dãy số 2^1,2^2,2^3,...,2^2019. Ta thực hiện quy tắc thay mỗi số trong dãy bởi các chữ số của nó, ví dụ 2^5=32 được thay bởi số 5. Cứ tiếp tục làm như vậy cho đếnkhi các số trong dãy đều là số có 1 chữ số. Chứng minh rằng trong dãy số cuối cùng, số chữ số 2 nhiều hơn số chữ số 1
Viết chương trình đọc số liệu của dãy N số trong tệp DATA1.TXT. Sau đó ghi dữ liệu là các thông tin sau vào tệp KQ1.TXT: - Dòng 1: Tổng các số lẻ trong dãy? - Dòng 2: Danh sách các số dương chia cho 5 có trong dãy, mỗi số cách nhau 1 cách
Program HOC24;
var i,n: integer;
a: array[1..1000] of integer;
t: longint;
f1,f2: text;
const fi='DATA1.TXT'
fo='KQ1.TXT'
begin
assign(f1,fi);
assign(f2,fo);
reset(f1);
rewrite(f2);
readln(f1,n);
for i:=1 to n do read(f1,a[i]);
t:=0;
for i:=1 to n do if a[i] mod 2=0 then t:=t+a[i];
writeln(f2,t);
for i:=1 to n do if a[i] mod 5=0 then write(f2,a[i],' ');
close(f1); close(f2);
end.
cho dãy A gồm N số nguyên A1,A2,...,An. hãy viết thuật toán theo phương pháp liệt kê cho các câu hỏi saua, tính tổng các số dương trong dãy Ab,tính tổng bình phương các số chia hết cho 2 trong dãy Ac,đếm số lượng các số là ước của 3d,tính tích các số là số lẻ, số chẵn d, đếm số lượng các số chia hết cho 2 và 5mọi người mỗi người giúp em 1 phần được không ạ:(( em cảm ơn