Question

Viết chương trình nhập vào 1 xâu kí tự s từ bàn phím.

a) Tạo xâu mới, lấy tất cả kí tự chữ số trong xâu s. Xóa tất cả kí tự "a" và "b" trong xâu s.

b) thay thế cụm từ "tin" bằng cụm từ "tin học" trong s.

Giúp em với mọi người ơiiii

Answer 1

uses crt;
var s,st,st1:string;
d,i,vt,dem:integer;
a:array[1..255]of integer;
begin
clrscr;
write('nhap xau S:'); readln(s);
d:=length(s);
st:='';
for i:=1 to d do
if s[i] in ['0'..'9'] then st:=st+s[i];
writeln('Xau moi vua duoc tao la: ',st);
write('Xau ',s,' sau khi xoa cac ki tu a va b la:');
for i:=1 to d do
if (s[i]<>'a') and (s[i]<>'b') then write(s[i]);
writeln;
st1:='tin';
vt:=pos(st1,s);
if vt=0 then writeln(s)
else
begin
inc(dem);
a[dem]:=vt;
end;
if dem>0 then
begin
for i:=1 to dem do
begin
delete(s,a[i],3);
insert('tin hoc',s,a[i]);
end;
writeln(s);
end;
readln;
end.