Dựa vào dấu hiệu chia hết cho 4 là 2 chữ số tận cùng chia hết cho 4. Gọi số đó có dạng abcd, trong đó (cd)thuộc {(12),(16),(24),(32),(36),(52),(56),(64)}, số cách chon a trong mỗi TH là 4, số cách chon b là 3. Từ đó suy ra ứng với mỗi bộ có 12 số, Vậy có 12.8=96 số

Dựa vào dấu hiệu chia hết cho 4 là 2 chữ số tận cùng chia hết cho 4.
Gọi số đó có dạng abcd, trong đó (cd)thuộc {(12),(16),(24),(32),(36),(52),(56),(64)}, số cách chon a trong mỗi TH là 4, số cách chon b là 3.
Từ đó suy ra ứng với mỗi bộ có 12 số, 
Vậy có 12.8=96 số

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

#include <bits/stdc++.h>

using namespace std;

long long i,t,dem;

int main()

{

dem=0;

t=0;

for (i=0; i<=10000; i++)

if (i%12==0) 

{

dem++;

t=t+i;

}

cout<<dem<<" "<<t;

return 0;

}

uses crt;

var s:string;

i,d,dem,dem1,kt:integer;

begin

clrscr;

write('Nhap xau S:'); readln(s);

d:=length(s);

dem:=0;

for i:=1 to d do 

  if st[i] in ['0'..'9'] then inc(dem);

writeln('So ki tu la chu so la: ',dem);

dem1:=0;

for i:=1 to d do 

  if (st[i] in ['A'..'Z']) or (st[i] in ['a'..'z']) then inc(dem1);

writeln('So ki tu la chu cai la: ',dem1);

write('Xau sau khi xoa ki tu trang la: ');

for i:=1 to d do 

if st[i]<>#32 then write(st[i]);

writeln;

kt:=0;

for i:=1 to d do 

 if st[i]<>st[d-i+1] then kt:=1;

if kt=0 then writeln('Xau doi xung')

else writeln('Xau khong doi xung');

readln;

end.

program HOC24;
uses crt;
var s: string;
    i, n, count: integer;
begin
    clrscr;
    write('Nhap chuoi S: ');
    readln(s);
    n := length(s);
    count := 0;
    for i := 1 to n do
        if (s[i] in ['0'..'9']) then
            if (StrToInt(s[i]) mod 5 = 0) then
            begin
                writeln('So chia het cho 5 la: ', s[i]);
                inc(count);
            end;
    writeln('Tong so chia het cho 5 la: ', count);
end.

```python
def count_and_print_numbers_divisible_by_5(S):
numbers = []
count = 0
current_number = ""

for char in S: if char.isdigit(): current_number += char else: if current_number != &quot;&quot;: number = int(current_number) if number % 5 == 0: count += 1 numbers.append(number) current_number = &quot;&quot; # Kiểm tra xem ký tự cuối cùng có phải là số chia hết cho 5 hay không if current_number != &quot;&quot;: number = int(current_number) if number % 5 == 0: count += 1 numbers.append(number) print(f&quot;Có {count} số chia hết cho 5 là: {&#x27;, &#x27;.join(map(str, numbers))}&quot;)

Nhập chuỗi S từ người dùng

S = input("Nhập chuỗi S: ")

Gọi hàm để đếm và in số chia hết cho 5 trong chuỗi S

count_and_print_numbers_divisible_by_5(S)
```