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

Vietjack.me giới thiệu bộ câu hỏi ôn tập Tin học có đáp án được biên soạn bám sát chương trình học giúp bạn ôn luyện và bổ sung kiến thức môn Tin học tốt hơn. Mời các bạn đón xem:

1 1,956 24/07/2023


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.

1 1,956 24/07/2023


Xem thêm các chương trình khác: