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.
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)
program bai1;
uses crt;
var i:integer;
s,s1:string;
begin
clrscr;
write('nhap S:');readln(s);
while pos('C',s)<>0 do
begin
insert('LOP11A',s,pos('C',s));
delete(s,pos('C',s),1);
end;
writeln('xau sau khi bien doi la: ',s);
writeln('do dai cua xau tren la: ',length(s));
write('nhap s1:');readln(s1);
if s1[1]=s[1] then writeln('ki tu dau cua hai xau trung nhau')
else writeln('ki tu dau cua hai xau khong trung nhau');
readln;
end.
uses crt;
var st:string;
d,i,dem:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
while st[1]=#32 do
begin
delete(st,1,1);
d:=length(st);
end;
while st[d]=#32 do
begin
delete(st,d,1);
d:=length(st);
end;
for i:=1 to d do
begin
while (st[i]=#32) and (st[i+1]=#32) do
begin
delete(st,i,1);
d:=length(st);
end;
end;
st[1]:=upcase(st[1]);
for i:=1 to d do
if st[i]=#32 then st[i+1]:=upcase(st[i+1]);
writeln('Ten cua ban sau khi viet dung la: ',st);
dem:=1;
for i:=1 to d do
if st[i]=#32 then inc(dem);
writeln('So tu cua xau la: ',dem);
readln;
end.
1.
Program HOC24;
var s: string;
i: byte;
begin
write('Nhap xau : '); readln(s);
for i:=length(s) downto 1 do write(upcase(s[i]));
readln
end.
1:
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
write('Dang dao nguoc cua xau la: ');
for i:=d downto 1 do
write(st[i]);
writeln;
for i:=1 to d do
st[i]:=upcase(st[i]);
write('Xau duoi dang in hoa la: ',st);
readln;
end.
2:
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
i:=pos('anh',st);
while i<>0 do
begin
delete(st,i,3);
insert('em',st,i);
i:=pos('anh',st);
end;
while st[1]=#32 do
begin
delete(st,1,1);
d:=length(st);
end;
while st[d]=#32 do
begin
delete(st,d,1);
d:=length(st);
end;
for i:=1 to d do
while (st[i]=#32) and (st[i+1]=#32) do
begin
delete(st,i,1);
d:=length(st);
end;
writeln('Xau sau khi xu ly la: ',st);
readln;
end.