s = input("Nhập xâu s: ")
x = input("Nhập xâu x: ")
count = 0

for i in range(len(s) - len(x) + 1):
    if s[i:i+len(x)] == x:
        count += 1

if count == 0:
    print("Không xuất hiện")
else:
    print("Số lần xuất hiện của x trong s là:", count)

Câu 1: 

A

b: 

Input: a,b

Output: UCLN(a,b)

def count_pairs_divisible_by_3(arr):
    n = len(arr)
    
    # Đếm số lượng số dư khi chia cho 3
    count_mod = [0, 0, 0]
    for num in arr:
        count_mod[num % 3] += 1

    # Trường hợp 0: Số dư 0 + Số dư 0
    count_pairs = count_mod[0] * (count_mod[0] - 1) // 2

    # Trường hợp 1: Số dư 1 + Số dư 2
    count_pairs += count_mod[1] * count_mod[2]

    # Trường hợp 2: Số dư 1 + Số dư 1 hoặc Số dư 2 + Số dư 2
    count_pairs += count_mod[1] * (count_mod[1] - 1) // 2
    count_pairs += count_mod[2] * (count_mod[2] - 1) // 2

    return count_pairs

# Thử nghiệm
arr = [3, 5, 7, 9, 11, 13, 15]
result = count_pairs_divisible_by_3(arr)
print(f"Số lượng cặp số có tổng chia hết cho 3 là: {result}"

Chọn A

Program HOC24;

var a: integer;

begin

write('Nhap a: '); readln(a);

//Cau a

writeln('Dien tich xung quanh la: ',a*a*4);

//Cau b

writeln('Dien tich toan phan la: ',a*a*6);

//Cau c

writeln('The tich la: ',a*a*a);

readln

end.

B

Program HOC24;

var n,i,t: longint;

begin

write('Nhap N : '); readln(n);

t:=0;

For i:=1 to n-1 do if n mod i=0 then t:=t+i;

if t<=n then write('YES') else write('NO');

readln

end.