Viết chương trình xóa hết chữ số trong xâu

Câu 37: Viết chương trình xóa hết chữ số trong xâu?

Trả lời

Program Xoa_chu_so; 

Uses crt; 

Var i: integer;

S: string; 

Begin 

Clrscr;             

Write(‘Nhap xau S: ‘); Readln(S);             

For i:=length(S) downto 1 do             

If S[i] in [‘0’..’9’] then             

Delete(S,i,1);             

Writeln(‘Xau sau khi xoa: ‘,S); 

End.