def tach_chuoi(chuoi):

     ky_tu_so = " "

     ky_tu_chu = " "

     for ky_tu in chuoi:

          if ky_tu.isdigit():

               ky_tu_so += ky_tu

          elif ky_tu.isalpha():

               ky_tu_chu += ky_tu

     return ky_tu_so, ky_tu_chu

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

ky_tu_so, ky_tu_chu = tach_chuoi(chuoi)

print("Các ký tự số trong chuỗi:", ky_tu_so)

print("Các ký tự chữ cái trong chuỗi:", ky_tu_chu)

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.

#include <bits/stdc++.h>
using namespace std;
int main() {
    string str;
    getline(cin, str);
    string ans = "";
    for (char c : str) {
        if (!isdigit(c)) {
            ans += c;
        }
    }
    cout <<ans;
}

Theo mk là như v

uses crt;

var st:string;

d,i:integer;

begin

clrscr;

readln(st);

d:=length(st);

for i:=1 to d do

if not(st[i] in ['0'..'9']) then write(st[i]);

readln;

end.

uses crt;

var s,s1,s2:string;

i,d:integer;

begin

clrscr;

readln(s);

s1:=''

s2:=''

d:=length(s);

for i:=1 to d do

  begin

if s[i] in ['0'..'9'] then s1:=s1+s[i];

if (s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then s2:=s2+s[i];

end;

writeln('Xau chua cac ki tu so la: ',s1);

writeln('Xau chua cac ki tu chu la: ',s2);

readln;

end.

Program HOC24;

var s: string;

begin

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

write('Xau sau khi loc: ');

for i:=1 to length(s) do

if s[i] in ['A'..'z'] then write(s[i]);

readln

end.

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)

uses crt;

var st:string;

i,d,dem:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

d:=length(st);

dem:=0;

for i:=1 to d do 

  if (st[i] in ['a'..'z']) or (st[i] in ['A'..'Z']) then inc(dem);

writeln(dem);

readln;

end.