#32 là dấu cách nhé bạn

#32 theo mình là dấu cách

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 != "": number = int(current_number) if number % 5 == 0: count += 1 numbers.append(number) current_number = "" # 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 != "": number = int(current_number) if number % 5 == 0: count += 1 numbers.append(number) print(f"Có {count} số chia hết cho 5 là: {', '.join(map(str, numbers))}")

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)
```

uses crt;

var s:string;

i,d,dem:integer;

begin 

clrscr;

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

d:=length(s);

writeln('Trong chuoi ',s,' co ',d,' ki tu');

writeln('Chuoi dao cua chuoi ',s,' la: ');

for i:=d downto 1 do 

  write(s[i]:4);

writeln;

dem:=0;

for i:=1 to d do 

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

writeln('So chu so trong xau la: ',dem);

readln;

end. 

def dem_so_tu(chuoi):

      dem = 0

      tu = chuoi.split()

      for word in tu:

            if word.isalpha():

                  dem += 1

      return dem

chuoi = input("Nhập một chuỗi: ")

so_tu = dem_so_tu(chuoi)

print("Số từ trong chuỗi là:", so_tu)

Câu 2: 

uses crt;

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

i,n,t,dem,j,kt,dem1:integer;

begin

clrscr;

readln(n);

for i:=1 to n do 

readln(a[i]);

t:=0;

for i:=1 to n do t:=t+a[i];

writeln(t);

dem:=1;

b[1]:=a[1];

for i:=1 to n do 

begin

kt:=0;

for j:=1 to dem do

  if b[j]=a[i] then kt:=1;

if kt=0 then 

begin

inc(dem);

b[dem]:=a[i];

end;

end;

for i:=1 to dem do 

begin

dem1:=0;

for j:=1 to n do 

  if a[j]=b[i] then inc(dem1);

writeln(b[i],' xuat hien ',dem1,' lan');

end;

readln;

end.

program TinhTongSo;
uses crt;
var
  a: array [1..10] of integer;
  i, tong, dem: integer;
begin
  clrscr;
  writeln('Nhap day 10 so nguyen: ');
  for i := 1 to 10 do
  begin
    write('Nhap so thu ', i, ': ');
    readln(a[i]);
  end;
  writeln('Day so da nhap tren mot hang: ');
  for i := 1 to 10 do
    write(a[i], ' ');
  tong := 0;
  for i := 1 to 10 do
    if a[i] < 0 then
      tong := tong + a[i];
  writeln('Tong cac so nguyen am: ', tong);
  dem := 0;
  for i := 1 to 10 do
    if (a[i] > 6) and (a[i] < 9) then
      dem := dem + 1;
  writeln('So luong cac so thoa dieu kien "lon hon 6 va nho hon 9": ', dem);
  readln;
end.