Var s,st:string;

i:integer;

Begin

Write('Nhap xau ');readln(s);

For i:=1 to length(s) do

If s[i] in ['0'..'9'] then st:=st+s[i];

Write('Cac ki tu so co trong day la ',st);

Readln

End.

giúp em với ạ em cảm ơn nhìuu

xau = input('Nhap chuoi: ')

so_khoang_cach = xau.count(' ')

print('So khoang cach:', so_khoang_cach)

vi_tri = []

for i in range(len(xau)):

     if xau[i] == ' ':

          vi_tri.append(i)

print('Vi tri khoang cach:', vi_tri)

st = str(input())

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

if chuoi_A.find("123") != -1:

     print("Chuỗi A chứa chuỗi con '123'")

else:

     print("Chuỗi A không chứa chuỗi con '123'")

A = input("Nhập vào chuỗi A: ")

if "123" in A:
    print("Chuỗi A chứa chuỗi con '123'.")
else:
    print("Chuỗi A không chứa chuỗi con '123'.")

xau = input('Nhập xâu kí tự: ')

chu_cai, chu_so, ki_tu_khac = 0, 0, 0

for kt in xau:

      if kt.isalpha():

            chu_cai += 1

      elif kt.isdigit():

            chu_so += 1

      else:

            ki_tu_khac += 1

print('Số lượng kí tự chữ cái:', chu_cai)

print('Số lượng kí tự chữ số:', chu_so)

print('Số lượng kí tự khác:', ki_tu_khac)

Python:

n = [float(i) for i in input("Nhập vào một xâu: ").split()]
tong = sum(n)
TB = tong / len(n)
print("Tổng các số trong xâu là: ", tong)
print("Trung bình các số trong xâu là: ", TB)

Pascal:
program tinh_tong_trungbinh;
var
  input_string: string;
  numbers: array of real;
  i, n: integer;
  sum, average: real;
begin
  write('Nhập vào một xâu: ');
  readln(input_string);
  
  // Tách chuỗi thành danh sách các số
  n := 0;
  for i := 1 to length(input_string) do
  begin
    if (input_string[i] in ['0'..'9', '.', '-']) then
    begin
      if (i = 1) or (not (input_string[i-1] in ['0'..'9', '.', '-'])) then
        n := n + 1;
    end;
  end;
  
  SetLength(numbers, n);
  n := 0;
  for i := 1 to length(input_string) do
  begin
    if (input_string[i] in ['0'..'9', '.', '-']) then
    begin
      if (i = 1) or (not (input_string[i-1] in ['0'..'9', '.', '-'])) then
      begin
        val(copy(input_string, i, length(input_string) - i + 1), numbers[n], i);
        n := n + 1;
      end;
    end;
  end;
  
  // Tính tổng và trung bình
  sum := 0;
  for i := 0 to n - 1 do
    sum := sum + numbers[i];
  
  if (n > 0) then
  begin
    average := sum / n;
    // Hiển thị kết quả
    writeln('Tổng: ', sum:0:2);
    writeln('Trung bình: ', average:0:2);
  end
  else
    writeln('Không có số hợp lệ để tính toán');
    
  readln;
end.