Viết chương trình nhập một xâu. Xoá tất cả các cụm từ 'love'.
Viết chương trình nhập từ bàn phím một xâu ký tự S. Xuất xâu đã nhập. Thay thế tất cả các cụm ký tự 'anh' bằng cụm ký tự 'em'. Xuất xâu đã nhập
Cậu tham khảo nhé!!!
https://hoc24.vn/cau-hoi/viet-chuong-trinh-nhap-mot-xau-tu-ban-phim-thay-ky-tu-39a39-thanh-39i39-va-in-xau-da-thay-ra-man-hinh-thay-tat-ca-chu-39anh39-t.257698320219
uses crt;
var s:string;
begin
clrscr;
write('Nhap xau: '); readln(s);
while pos('a',s)<>0 do
begin
insert('i',s,pos('a',s));
delete(s,pos('a',s),1);
end;
write('Xau sau khi chuyen la : ',s);
readln;
end.
giải dùm mình bài này với: viết chương trình python nhập xâu xoá tất cả các chữ số có trong xâu
s = input("Nhập chuỗi: ")
s = ''.join(filter(lambda i: not i.isdigit(), s))
print("Chuỗi sau khi loại bỏ các chữ số: ", s)
Viết chương trình nhập vào 1 xâu bất kỳ từ bàn phím, thay thế tất cả các cụm kí tự
“choi” bằng cụm kí tự “hoc”.
xau = input("Nhập vào một xâu bất kì: ")
xau_moi = xau.replace("choi", "hoc")
print("Xâu mới sau khi thay thế là:", xau_moi)
Program HOC24;
var s: string;
d: byte;
begin
write('Nhap xau : '); readln(s);
while pos('choi',s)<>0 do
begin
d:=pos('choi',s);
delete(s,d,4);
insert('hoc',s,d);
end;
write('Xau sau khi thay la: ',s);
readln
end.
Viết chương trình nhập vào từ bàn phím một xâu kí tự. In ra màn hình xâu gồm tất cả các kí tự chữ số lấy từ xâu đã nhập
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.
Viết chương trình xoá các kí tự là chữ số từ một xâu bất kì được nhập từ bàn phím. In xâu kết quả ra màn hình
uses crt;
var st:string;
d,i:integer;
begin
clrscr;
readln(st);
d:=length(st);
for i:=1 to d do
if not (st[i] in ['0'..'9']) then write(st[i]);
readln;
end.
Viết chương trình nhập từ bàn phím một xâu ký tự S. Xuất xâu đã nhập. Thay thế tất cả các dấu cách bằng dấu gạch dưới ( _ ). Xuất xâu đã thay thế
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 st[i]:='_'
writeln('Xau thay the la: ',st);
readln;
end.
viết chương trình nhập vào từ bàn phím một xâu bất kì hãy thực hiện xoá 5 kí tự bắt đầu từ vị trí 3 cả xâu đó rồi đưa kết quả ra màn hình
uses crt;
var st:string;
begin
clrscr;
readln(st);
delete(st,3,5);
writeln(st);
readln;
end.