Question

Nhập vào một xâu kí tự bất kì

a) Xóa toàn bộ dấu trắng có trong xâu

b) Đổi toàn bộ chữ số có trong xâu sang từ tiếng anh

Mng giúp em. Em cảm ơn ạ!

Answer 1

uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('nhap xau:'); readln(st);
{------------------------------------cau-a--------------------------}
d:=length(st);
for i:=1 to d do
if st[i]=' 'then delete(st,i,1);
writeln('xau sau khi xoa toan bo dau trang la: ',st);
readln;
end.