Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

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.

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.
Dưới đây là ví dụ chương trình Python thực hiện yêu cầu:
Giải thích:
input()
dùng để nhập xâu ký tự từ bàn phím.isdigit()
để kiểm tra xem ký tự đó có phải là chữ số không.int(ch)
và kiểm tra số đó có chia hết cho 2 (tức là số chẵn) hay không.