Question

Bài 2: Viết chương trình nhập vào một xâu có chữ “anh” và chữ “em”. Xuất ra màn hình xâu đổi chữ “anh” thành chữ “em”, chữ “em” thành chữ “anh”.

Bài 3: Viết chương trình nhập vào một xâu kí tự gồm cả chữ và số. Xuất ra màn hình xâu chỉ có kí tự chữ và xâu chỉ có kí tự số được trích ra từ xâu ban đầu.

Answer 1

Bài 2:

Program hotrotinhoc;

var s: string;

i,n,j: integer;

begin

readln(s);

while (pos('anh',s)<>0) do

begin

insert('e^%%%%^%m',s,pos('anh',s));

delete(s,pos('anh',s),3);

end;

while (pos('em',s)<>0) do

begin

insert('anh',s,pos('em',s));

delete(s,pos('em',s),2);

end;

for i:=1 to length(s) do

if not(s[i] = '%') and not(s[i]='^') then write(s[i]);

readln

end.

Answer 2

Bài 3:

uses crt;
var st:string;
d,i,dem,dem1:integer;
st1,st2:string;
begin
clrscr;
write('nhap xau:'); readln(st);
d:=length(st);
dem:=0;
dem1:=0;
for i:=1 to d do
begin
if st[i] in ['0'..'9'] then
begin
dem:=dem+1;
st1[dem]:=st[i];
end;
if (st[i] in ['A'..'Z']) or (st[i] in ['a'..'z']) then
begin
dem1:=dem1+1;
st2[dem1]:=st[i];
end;
end;
for i:=1 to dem do
write(st1[i]);
writeln;
for i:=1 to dem1 do
write(st2[i]);
readln;
end.

Answer 3

Program hotrotinhoc;

var s: string;

i: integer;

begin

readln(s);

write('Xau chi co ki tu chu la :');

for i:=1 to length(s) do

if s[i] in ['A'..'z'] then write(s[i]);

writeln;

write('Xau chi co ki tu so la :');

for i:=1 to length(s) do

if s[i] in ['0'..'9'] then write(s[i]);

readln

end.