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

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

Đề bài: Viết chương trình xóa hết chữ số trong xâu?

Lời giả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.