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ố")

Program HOC24;

var a: array[1..32000] of integer;

i,n,d: integer;

begin

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

d:=0;

for i:=1 to n do 

begin

write('a[',i,']='); readln(a[i]);

if a[i] mod 3=0 then d:=d+1;

end;

write('Co ',d,' so chia het cho 3');

readln

end.

uses crt;

var a:array[1..100]of integer;

i,n,dem:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

dem:=0;

for i:=1 to n do 

  if a[i] mod 3=0 then inc(dem);

writeln(dem);

readln;

end.

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

có 9 giá trị cần tìm

có 9

k mình nha

có 9 giá trị

Số lớn nhất là 993. Số bé nhất là 123.

Số các số là: (993-123):3+1=291:3=97

Muốn tìm số có dạng ab3 chia hết cho 3 thì các chữ số phải chia hết cho 3

Suy ra : a =( 3;6;9)

            b =(0;3;6;9)

Suy ra : ab có 9 giá trị

Chia hết cho 2,5 => b=0

a = 0 hoặc 3 hoặc 6 hoặc 9

vậy các số cần tìm là: 59700; 59730; 59760; 59790

Thế bạn tự đếm là mấy số đi nhé tớ đi đây :>