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
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.
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:
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.
em mới học lớp 5 thôi nên không biết !