Nhập vào 1 xâu kí tự S từ bàn phím, rồi in ra xâu kí tự đó sau khi đã xoá hết các dấu cách thừa ở đầu, cuối xâu và giữa các từ trong xâu chỉ để lại 1 dấu cách BẰNG PYTHON Mọi người giúp em với ạ 😢😢😢
giúp em với sáng mai em thi rồi..
1.viết chương trình nhập vào một xâu kí tự từ bàn phím. in ra màn hình xâu kí tự sau khi đã thay các từ "nang" thành "mua".
2. viết chương trình vào một xâu kí tự từ bàn phím .kiểm tra xem xâu đó có phải là xâu palindrom không? ( Xâu palindrom là xâu khi viết từ trái qua phải cũng giống như từ phải qua trái, VD: Xâu 'ABBA' là một xâu palindrom).
giúp em với ạ em rất cần gấp
Bài 1:
uses crt;
var S:String;
vt:integer;
begin
clrscr;
Write(‘Nhap 1 xau:’); Readln(S);
While pos(‘nang’,s)>0 do
Begin
Vt:= pos(‘nang’,s);
Delete(s,vt,4);
Insert(‘mua’,s ,vt);
End;
Writeln(‘Xau sau khi thay the ’,s);
Readln;
End.
Bài 2:
uses crt;
var st:string;
d,i,kt:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
kt:=0;
for i:=1 to d do
if st[i]<>st[d-i+1] then kt:=1;
if kt=0 then writeln(st,' la xau doi xung')
else writeln(st,' khong la xau doi xung');
readln;
end.
Nhập vào từ bàn phím một xâu. Hãy chuẩn hóa xâu vừa nhập theo quy tắc:
- Xóa các dấu cách ở đầu xâu và cuối xâu (nếu có).
- Nếu giữa xâu có 2 hay nhiều dấu cách thì xóa bỏ và chỉ để lại một dấu cách.
In ra xâu đã chuẩn hóa.
anh em giúp tôi với :(
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.
Viết chương trình nhập vào 1 xâu ký tự từ bàn phím, đưa ra số các dấu cách trong xâu rồi in ra vị trí của từng dấu cách trong xâu
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)
Viết chương trình nhập vào một xâu S có độ dài không quá 125 ký tự từ bàn phím. Xuất xâu đã nhập. Thực hiện xóa hết các dấu cách có trong xâu S. Xuất xâu S đã xóa các dấu cách ra màn hình
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.
Nhập vào 1 xâu từ bàn phím . Đếm và in ra màn hình 1 số kí tự là "b" có trong xâu . Đưa ra màn hình xâu đã xóa hết các kí tự "b" có thể giải nhanh giúp mình ko ạ tại mình đang cần gấp
Program HOC24;
var i,d: byte;
s: string;
begin
write('Nhap xau: '); readln(s);
d:=0;
for i:=1 to length(s) do
if s[i]='b' then d:=d+1;
writeln('Co ',d,' ki tu b');
write('Xau moi sau khi da xoa la: ');
for i:=1 to length(s) do if s[i]<>'b' then write(s[i]);
readln
end.
Cho xâu kí tự S được lấy từ tập 'a'..'z','A'..'Z' và dấu cách. Từ trong xâu là dãy gồm tất cả các ký tự chữ cái liên tục. Xâu S được gọi là chuẩn hóa nếu thỏa mãn các điều kiện:
-Giữa các từ chỉ có 1 dấu cách.
-Đầu xâu và cuối xâu không có dấu cách.
-Ký tự đầu là chữ in hoa, các ký tự còn lại in thường.
Yêu cầu: Chuẩn hóa xâu S
Nhập vào 1 xâu kí tự từ bàn phím. Viết chương trình xoá kí tự là cách trống có trong xâu.
Program HOC24;
var s: string;
begin
write('Nhap xau: '); readln(s);
for i:=1 to length(s) do if s[i]<>#32 then write(s[i]);
readln
end.