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)

uses crt;

var st:string;

n,vt,d,i:integer;

begin

clrscr;

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

d:=length(st);

write('Nhap vi tri can xoa:'); readln(vt);

write('Nhap so ki tu can xoa:'); readln(n);

delete(st,vt,n);

writeln('Xau sau khi xoa la: ',st);

readln;

end.

uses crt;

var st:string;

begin

clrscr;

readln(st);

delete(st,3,5);

writeln(st);

readln;

end.

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

b = input("Nhập chuỗi B: ")

# Tìm độ dài chuỗi dài nhất 

max_length = max(len(a), len(b))

# Đếm số khoảng trắng trong chuỗi dài nhất

max_spaces = 0

for char in (a + b):

     if char == ' ':

          max_spaces += 1

# Ghép chuỗi ngắn vào chuỗi dài hơn ở vị trí cuối cùng

if len(a) < len(b):

     a += b[-(len(b) - len(a)):]

else:

     b += a[-(len(a) - len(b)):]

# Xuất kết quả ra màn hình

print("Số khoảng trắng trong chuỗi dài nhất là:", max_spaces)

print("Chuỗi sau khi ghép là:", a + b)

Giải giúp mk vói🥰

_{tham khảo}

_{uses crt;}

_{var a:string;}

_{i,d,dem:integer;}

_begin

_clrscr;

_{write('Nhap xau a:'); readln(a);}

_dem:=0;

_{d:=length(a);}

_{for i:=1 to d do}

_{if a[i]=' ' then inc(dem);}

_{writeln(dem);}

_readln;

_end.

uses crt;

var st:string;

d,i,dem:integer;

begin

clrscr;

readln(st);

d:=length(st);

dem:=0;

for i:=1 to d do

  if (st[i]='a') then dem:=dem+1;

writeln(dem);

readln;

end.

cau 1:

uses crt;

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

n,i,min: integer;

begin

readln(n);

for i:=1 to n do

readln(a[i]);

min:=a[1];

for i:=2 to n do

if min>a[i] then min=a[i];

writeln(a[i]);

readln;

end.

cau 2:

uses crt;

g:text;

s:string;

const fo='CHUSO.TXT'

begin

assign(g,fo);

rewrite(g);

readln(s);

for i:=1 to length(s) do

if not((s[i] in ['a'..'z'])and(s[i] in ['A'..'Z])) then delete(s,i,1);

writeln(g,s);

end.