cho an=111...1(n.2 chữ số 1) (n thuộc N*)
Xét xem dãy a1,a2,a3,...,a2022 có bao nhiêu số chia hết cho 13.
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
em mới học lớp 5 thôi nên không biết !
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
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.
Viết chương trình nhập vào từ bàn phím n và dãy số nguyên a1,a2,..an(0<n<100)
a. cho biết có bao nhiêu số lớn hơn k trong dãy a1,..,an
b. cho biết có bao nhiêu số có tổng các chữ số chia hết cho 3 ?
n = int(input("Nhập n: "))
a = [ ]
for i in range(n):
a.append(int(input(f"Nhập phần tử a[{i}]: ")))
k = int(input("Nhập k: "))
count_greater = 0
count_divisible_by_three = 0
for num in a:
if num > k:
count_greater += 1
if sum(int(digit) for digit in str(num)) % 3 == 0:
count_divisible_by_three += 1
print(f"Số lớn hơn {k}: {count_greater} số")
print(f"Số có tổng các chữ số chia hết cho 3: {count_divisible_by_three} số")
cho an=11...1(n thuộc N*)có 2*n chữ số 1
hãy xét xem dãy a1,a2,a3,....,a2015 có bao nhiêu số chia hết cho 13
cho n số nguyên bất kỳ a1,a2,a3,...,an (n thuộc N n_>2) chứng tỏ nếu n là số tự nhiên chia 4 dư 1 thì tổng A =|a1-a2+1| + |a2-a3+2| + |a3-a4+3|+...+|an-1 - an +n-1| + |an-a1+n| là số tự nhiên lẻ