Những câu hỏi liên quan
Hiếu
Xem chi tiết
Nguyễn Lê Phước Thịnh
29 tháng 3 2021 lúc 21:36

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.

Bình luận (0)
Nguyễn Thị Huyền Nhi
Xem chi tiết
UFO TV
Xem chi tiết
Thúy Hà
Xem chi tiết
Nguyễn Lê Phước Thịnh
13 tháng 4 2021 lúc 21:26

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.

Bình luận (0)
Triệu Ngọc Phượng
Xem chi tiết
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.

Bình luận (0)
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

Bình luận (0)
Anh Duc
Xem chi tiết
Nguyễn Thị Thanh Hằng
Xem chi tiết
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.

Bình luận (0)