Quảng cáo
1 câu trả lời 127
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.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
149303 -
Đã trả lời bởi chuyên gia
99719 -
Đã trả lời bởi chuyên gia
97338 -
Đã trả lời bởi chuyên gia
80007 -
Đã trả lời bởi chuyên gia
72853 -
Đã trả lời bởi chuyên gia
55936 -
Đã trả lời bởi chuyên gia
55307
Gửi báo cáo thành công!
