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)

Câu 1: 

uses crt;

var st:string;

d,i,dem:integer;

begin

clrscr;

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

d:=length(st);

write('Xau sau khi xoa so la: ');

for i:=1 to d do 

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

writeln;

dem:=0;

for i:=1 to d do 

  if st[i]=#32 then inc(dem);

writeln('Xau co ',dem,' dau cach');

writeln('Do dai cua xau la: ',d);

readln;

end. 

Câu 2: 

uses crt;

const fi='kq.out'

var st1,st2:string;

f1:text;

begin

clrscr;

write('Nhap xau thu 1:'); readln(st1);

write('Nhap xau thu 2:'); readln(st2);

assign(f1,fi); rewrite(f1);

if length(st2)>length(st1) then writeln(f1,st2)

else writeln(f1,st1);

close(f1);

end.

Câu 3: 

uses crt;

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

i,n,t,dem:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

dem:=0;

for i:=1 to n do 

  if a[i] mod 2=0 then

begin

t:=t+a[i];

inc(dem);

end;

writeln('Trung binh cong cac so chan la: ',t/dem:4:2);

readln;

end.

program so_sanh;

uses crt;

var a, b: string;

begin

clrscr;

write('nhap xau thu nhat: ');readln(a);

 write('nhap xau thu hai: ');readln(b);

if length(a)<length(b) then write(a) else write(b);

readln 

end.

Uses crt;

Var st1,st2:string;

D1,d2:integer;

Begin

Clrscr;

Write('nhap xau thu 1:'); readln(st1);

Write('nhap xau thu 2:'); readln(st2);

D1:=length(st1);

D2:=length(st2);

If d1<d2 then write(st1)

Else writeln(st2);

Readln;

End.

uses crt;

var st:string;

i,d:integer;

begin

clrscr;

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

d:=length(st);

writeln('Xau vua nhap la: ',st);

for i:=1 to d do 

  if st[i]=#32 then delete(st,i,1);

writeln('Xau moi la: ',st);

readln;

end.

Chương trình:

program bai_10_chuong_4;

uses crt;

var

s: string[100];

i, dem: integer;

Begin

clrscr;

write('Nhap xau vao:'); readln(s); dem:= 0;

for i:= 1 to length(s) do

if ('0'<=s[i]) and(s[i]<=’9') then dem:=dem+l;

Writeln('Trong xau s co '»dem,' chu so thap phan');

readln;

End.

uses crt;

var st:string;

i,d,dem:integer;

begin

clrscr;

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

d:=length(st);

writeln('Xau vua nhap la: ',st);

dem:=0;

for i:=1 to d do 

  if st[i] in ['0'..'9'] then inc(dem);

writeln(dem);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

string st1,st2;

int d1,d2;

int main()

{

cin>>st1>>st2;

d1=st1.length();

d2=st2.length();

if (d1<d2) cout<<st1;

else cout<<st2;

return 0;

}

a/ var s: string;

b/ readln(s);

c/ write(length(s));

d/ for i:=1 to length(s) do if s[i] in ['0'..'9'] then write(s[i]);