st = str(input())

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('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)

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'.")

uses crt;

var s1,s2:string;

begin

clrscr;

readln(s1,s2);

insert(s1,s2,5);

writeln(s2);

readln;

end.

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)

var s:string;

i,d:integer;

begin

write('Nhap xau s = ');readln(s);

for i:=1 to length(s) do

if (s[i] = 'A') and (s[i+1] = 'n') then d:=d+1;

write('Co ',d,' van An');

readln

end.