Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Khánh Mỹ
Xem chi tiết
_Jun(준)_
3 tháng 3 2021 lúc 18:05

 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

Nguyễn Lê Phước Thịnh
3 tháng 3 2021 lúc 19:37

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.

Ola Oly
Xem chi tiết
Phía sau một cô gái
24 tháng 3 2023 lúc 20:45

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)

Triệu Ngọc Phượng
Xem chi tiết
Nam Hải
Xem chi tiết
Phía sau một cô gái
17 tháng 3 2023 lúc 22:45

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)

Minh Lệ
17 tháng 3 2023 lúc 23:13

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.

Huyên Lê Thị Mỹ
Xem chi tiết
Kiều Vũ Linh
10 tháng 5 2023 lúc 21:03

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.

Huyên Lê Thị Mỹ
10 tháng 5 2023 lúc 20:29

giúp em với ạ em cảm ơn nhìuu

B2_Đinh Thị Huệ
Xem chi tiết
Nguyễn Lê Phước Thịnh
10 tháng 5 2022 lúc 23:02

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.

Khánh Mỹ
Xem chi tiết
Nguyễn Lê Phước Thịnh
3 tháng 3 2021 lúc 19:47

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.

Nguyễn TRƯỜNG Giang
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 4 2022 lúc 21:46

uses crt;

var st:string;

begin

clrscr;

readln(st);

delete(st,3,5);

writeln(st);

readln;

end.

Nguyễn Thị Huyền Nhi
Xem chi tiết