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
Mọi người giải giúp mình Bài Tập này với ạ! Mình xin cảm ơn nhiều: Bài tập: Viết chương trình nhập từ bàn phím một xâu kí tự S. Viết ra màn hình: - Các kí tự số có trong xâu S - Số lượng các kí tự số có trong xâu S. - Thay tất cả các kí tự số đó bằng kí tự ‘A’.
uses crt;
var s:string;
i,d,dem:integer;
begin
clrscr;
write('Nhap xau S:'); readln(s);
d:=length(s);
writeln('Cac ki tu so co trong xau S:');
dem:=0;
for i:=1 to d do
if s[i] in ['0'..'9'] then
begin
write(s[i]:4);
inc(dem);
end;
writeln;
writeln('So ki tu chu so co trong xau S: ',dem);
for i:=1 to d do
if s[i] in ['0'..'9'] then s[i]:='A'
writeln('Xau sau khi doi la: ',s);
readln;
end.
Viết chương trình nhập một xâu S, in ra tất cả các chữ cái và số lượng chữ cái trong xâu, in ra tất cả các chữ số và số lượng chữ số trong xâu.
Viết chương trình nhập một xâu. Xoá tất cả các cụm từ 'love'.
uses crt;
var st:string;
vt:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
vt:=pos('love',st);
while vt<>0 do
begin
delete(st,vt,4);
end;
writeln(st);
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.
cho xâu kí tự S nhập vào từ bàn phím viết chương trình bằng ngôn ngữ python thống kê chữ số 0 số 1.... số chữ 9 trong xâu S cần gấp
Viết chương trình nhập một xâu và cho biết xâu đó có bao nhiêu kí tự ( Trong PYTHON)
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.