Cho An = 11...1 (2n số 1), (n thuộc N*)
Hãy xét dãy số A1, A2, A3,..., A2013 có bao nhiêu số chia hết cho 13
Cho an=111111......11(2n chữ số 1) (n là số tự nhiên khác 0) xét a1,a2,a3,...,a2016 có bao nhiêu số chia hết cho 13
Cho an=111111......11(2n chữ số 1) (n là số tự nhiên khác 0) xét a1,a2,a3,...,a2016 có bao nhiêu số chia hết cho 13
Cho an=111111......11(2n chữ số 1) (n là số tự nhiên khác 0) xét a1,a2,a3,...,a2016 có bao nhiêu số chia hết cho 13
Cho an=111111......11(2n chữ số 1) (n là số tự nhiên khác 0)
xét a1,a2,a3,...,a2016 có bao nhiêu số chia hết cho 13
Viết thuật toán để giải bài toán Cho dãy số A gồm N số nguyên a1 a2 a3 ...aN đếm xem trong dãy có bao nhiêu số vừa chia hết cho 3 vừa chia hết cho 5
a, Xác định bài toán:
+Input: Dãy số a1,….,an và (0,5đ)
+Output: Số lượng số hạng trong dãy số a1,….,an có giá trị bằng 9 (0,5đ)
b, Thuật toán:
Bước 1.Nhập N và dãy số a1,….,an;
Bước 2. i ←1; n ← 0; (0,25đ)
Bước 3. Nếu aithì n ←n+1;
Bước 4. i → i+1 (0,25đ)
Bước 5. Nếu i > N thì thông báo số lượng số hạng bằng k trong dãy đã cho là n và kết thúc; (0,25đ)
Bước 6. Quay lại bước 3.
Bước 1: Nhập n và nhập dãy số
Bước 2: dem←0; i←1;
Bước 3: Nếu a[i] mod 3=0 và a[i] mod 5=0 thì dem←dem+1;
i←i+1;
Bước 4: Nếu i<=n thì quay lại bước 3
Bước 5: xuất dem
Bước 6: Kết thúc
1, Cho dãy A gồm N số nguyên a1,a2...aN. Hãy cho biết trong dãy có bao nhiêu số chẵn?
2, Cho N và dãy a1,a2...aN là dãy các số nguyên. Hãy cho biết trong dãy có bao nhiêu số âm
Bài 1: Cho dãy số A1, A2, A3,.., AN và một số K.
Cho biết trong dãy số đó có bao nhiêu số bằng K.
Bài 2: Cho dãy số A1, A2, A3,.., AN. Tìm số nhỏ nhất trong dãy đó.
cho a1 +a2+...+a2013=0
và a1+a2=a3+a4=...=a2013+a1=1
tính a1 chia cho a2013
Giúp mình nhe! 1;2;3;..;2013 là số thứ tự đó
Bài 1. Cho dãy số nguyên N và dãy a1, a2, a3, .., an (0<=N<=10^6; i=0,1,2,…,N – 1; |a(i)|<=10^6.Yêu cầu: Cho N và dãy a1, a2, a3, …, an; xóa phần tử x và xuất mảng sau khi xóa.
Bài 2. Cho dãy số nguyên N và dãy a1, a2, a3, …, an(0<=N<=10^6; i=0,1,2,…,N – 1; |a(i)|<=10^6.Yêu cầu: Cho N và dãy a1, a2, a3, …, an; xóa các phần tử trùng nhau chỉ giữ lại một phần tử và xuất mảng sau khi xóa.
Ai đó giúp mình 2 bài này theo pascal với được ko? Mình thật sự không biết làm :(( Ai đó giúp mình 2 bài này theo pascal với được ko? Mình xin cảm ơn nhiều!!
Bài 1:
uses crt;
var a:array[1..1000000]of longint;
i,n,x:longint;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap x='); readln(x);
for i:=1 to n do
if a[i]<>x then write(a[i]:4);
readln;
end.