Tin học Bài tập xâu

[Ngô Gia Kiệt]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

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”.

 

[Nguyễn Minh Lệ]

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 = '%') and not(s='^') then write(s);
readln
end.

 

[Dương Nhạt Nhẽo]

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”.